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(This  Foreword  is  not  p:irt  of  American  National  Standard  X3. 124.2-1988.) 


This  American  National  Standard  provides  access  to  a  set  of  basic  functions  for  computer  graphics  pro¬ 
gramming  in  American  National  Standard  Programming  Language  Pascal,  ANSI/IEEE  770X3.97-1983. 
These  graphics  functions  taken  as  a  whole  are  called  the  Pascal  language  binding  of  the  Graphical  Kernel 
System  (GKS). 

This  standard  defines  a  Pascal  application  level  programming  interface  to  a  graphics  system.  Hence,  it 
contains  functions  for  (1)  outputting  graphical  primitives,  (2)  controlling  the  appearance  of  graphical 
primitives  with  attributes,  (3)  controlling  graphical  workstations,  (4)  controlling  transformation  and  coor¬ 
dinate  systems,  (5)  generating  and  controlling  groups  of  primitives  called  segments,  (6)  obtaining  graphi¬ 
cal  input,  (7)  manipulating  groups  of  device-independent  instructions  called  metafiles,  (8)  inquiring  the 
capabilities  and  states  of  the  graphics  system,  and  (9)  handling  errors. 

For  each  GKS  function,  a  Pascal  procedure  declaration  is  given.  In  addition,  any  special  errors  associated 
only  with  the  Pascal  language  binding  of  GKS  are  specified  and  assigned  unique  error  numbers.  Finally, 
all  of  the  data  types  and  constants  necessary  to  access  the  procedures  are  defined. 

Twelve  upwardly  compatible  levels  of  conformance  are  defined,  addressing  the  most  common  classes  of 
equipment  and  applications. 

American  National  Standard  for  Information  Systems  -  Computer  Graphics  -  Graphical  Kernel  System 
(GKS)  Functional  Description,  ANSI  X3. 124-1985,  is  supplemented  by  this  derivative  standard.  ANSI 
X3. 124-1985  corresponds  to  ISO  7942-1985  in  that  it  represents  the  functional  aspects  of  GKS.  ANSI 
X3. 124.2-1988  contains  specifications  not  present  in  ANSI  X3. 124-1985,  namely,  the  syntax  for  using 
GKS  functions  and  data  types  from  Pascal. 

This  standard  was  developed  by  Technical  Committee  X3H3  of  American  National  Standards  Committee 
X3  under  project  531-D  authorized  by  X3  (described  in  document  X3H3/85-116). 

This  standard  was  approved  as  an  American  National  Standard  by  the  American  National  Standards  Insti¬ 
tute  on  February  18,  1988. 

Suggestions  for  improvement  of  this  standard  will  be  welcome.  They  should  be  sent  to  Computer  and 
Business  Equipment  Manufacturers  Association,  311  First  Street,  NW,  Suite  500,  Washington,  DC 
20001. 

This  standard  was  processed  and  approved  for  submittal  to  ANSI  by  Accredited  Standards  Committee  on 
Information  Processing  Systems,  X3.  Committee  approval  of  the  standard  does  not  necessarily  imply  that 
all  committee  members  voted  for  its  approval.  At  the  time  it  approved  this  standard,  the  X3  committee 
had  the  following  members: 
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for  Information  Systems  - 

Computer  Graphics  - 
Graphical  Kernel  System  (GKS) 
Pascal  Binding 


0.  Introduction 


The  Graphical  Kernel  System  (GKS),  the  functional  description  of  which  is  given  in  ANSI  X3. 124-1985, 
is  specified  in  a  language-independent  manner  and  needs  to  be  embedded  in  language-dependent  layers 
(language  bindings)  for  use  with  particular  programming  languages. 

The  purpose  of  this  standard  is  to  define  a  standardized  binding  for  the  Pascal  computer  programming 
language. 
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1.  Scope  and  Field  of  Application 


The  Graphical  Kernel  System  (GKS),  as  described  in  ANSI  X3. 124-1985,  specifies  a  language- 
independent  nucleus  of  a  graphics  system.  For  integration  into  a  programming  language,  GKS  is  embed¬ 
ded  in  a  language-dependent  layer  obeying  the  particular  conventions  of  that  language.  This  part  of  ANSI 
X3.124  specifies  such  a  language-dependent  layer  for  the  Pascal  language. 
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2.  Referenced  Standards 

2.1  Referenced  American  National  Standards 

I  his  standard  is  intended  tor  use  with  the  following  American  National  Standards: 

ANSI  X3. 124-1985,  Information  Systems  -  Computer  Graphics  -  Graphical  Kernel  System  (GKS)  Func¬ 
tional  Description. 

ANSI/IEEE  770X3.97-1983,  Pascal  Computer  Programming  Language. 

2.2  Ollier  Referenced  Standards 

1  his  standard  is  also  intended  for  use  with  the  following  International  Standards: 

ISO  2382-13:1984,  Data  processing  -  Vocabulary  -  Part  13:  Computer  Graphics. 

ISO  7185:1983,  Programming  languages  -  Pascal. 
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3.  The  Pascal  Language  Binding  of  GKS 


3.1  Specification 

The  GKS  language  binding  interface  for  Pascal,  as  described  in  ANSI/IEEE  770X3.97-1983,  shall  be  as 
described  in  clauses  3,  4,  5,  and  6. 

3.2  Mapping  of  GKS  Function  Names  to  Pascal  Procedure  Names 

The  function  names  of  GKS  are  all  mapped  to  Pascal  procedures  which  begin  with  the  letter  “G”.  Words 
and  phrases  used  in  the  GKS  function  names  are  often  abbreviated  in  the  Pascal  representation.  There  is 
a  set  of  such  abbreviations  given  in  Table  1  and  the  resulting  Pascal  procedure  names  are  listed  in  Tables 
2,  3,  and  4.  For  example,  the  abbreviation  for  the  GKS  function  DELETE  SEGMENT  FROM 
WORKSTATION  is  GDclScgWs.  “Del”,  “Scg”,  “Ws”  are  the  abbreviations  for  DELETE,  SEGMENT 
and  WORKSTATION.  Conjunctives  such  as  “from”,  “and”,  “of”  and  “to”  are  mapped  to  null  strings, 
as  are  a  number  of  other  words  used  in  the  GKS  abstract  names.  For  example,  INQUIRE  MAXIMUM 
LENGTH  OF  WORKSTATION  STATE  TABLES  is  mapped  to  GInqMaxWsSt.  Here  LENGTH  and 
TABLES  arc  represented  by  null  strings. 
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The  Pascal  Language  Binding  of  GKS  Mapping  of  GKS  Function  Names  to  Pascal  Procedure  Names 

Table  1  -  Abbreviations  Ordered  Alphabetically 


GKS  word 

Abbreviation 

ACCUMULATE 

Accum 

ALIGNMENT 

Align 

ALL 

NULL 

AND 

NULL 

ASPECT  SOURCE  FLAGS 

ASF 

ASSOCIATE 

Assoc 

ATTRIBUTE 

Attr 

ATTRIBUTES 

Attr 

AVAILABLE 

NULL 

CHARACTER 

Char 

CLASSIFICATION 

Class 

CLIPPING 

Clip 

COLOUR 

Coir 

CONNECTION 

Conn 

CURRENT 

Cur 

DEFAULT 

Def 

DEFERRAL 

Defer 

DELETE 

Del 

DETECTABILITY 

Det 

DIMENSIONS 

Dim 

DYNAMIC 

Dyn 

EVALUATE 

Eval 

EXPANSION 

Expan 

FACILITIES 

Facil 

FACTOR 

NULL 

FILL  AREA 

Fill 

FROM 

NULL 

GENERALIZED  DRAWING  PRIMITIVE 

GDP 

GRAPHICAL  KERNEL  SYSTEM 

GKS 

GKSM 

NULL 

HIGHLIGHTING 

Highlight 

IDENTIFIER 

Id 

IN 

NULL 

INDEX 

Ind 

INDICATOR 

NULL 

INDICES 

Ind 

INDIVIDUAL 

Indiv 

INITIALISE 

Init 

INPUT 

NULL 

INQUIRE 

Inq 

INTERIOR 

Int 

LENGTH 

NULL 

LIST 

NULL 

LOGICAL 

NULL 

MATRIX 

NULL 

MAXIMUM 

Max 

MODIFICATION 

Mod 

NAME 

NULL 

NORMALIZATION 

Norm 
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Mapping  of  GKS  Function  Names  to  Pascal  Procedure  Names  The  Pascal  Language  Binding  of  GKS 

Table  1  -  Abbreviations  Ordered  Alphabetically 


GKS  word 

Abbreviation 

NUMBER 

Num 

NUMBERS 

Num 

OF 

NULL 

ON 

NULL 

OPERATING 

Op 

POLYLINE 

Line 

POLYMARKER 

Marker 

PRECISION 

Prec 

PREDEFINED 

Pred 

PRIMITIVE 

Prim 

QUEUE 

NULL 

REFERENCE 

Ref 

REPRESENTATION 

Rep 

REQUEST 

Req 

SEGMENT 

Seg 

SEGMENTS 

Seg 

SET 

NULL 

SIMULTANEOUS 

NULL 

SPACE 

NULL 

STATE 

St 

SUPPORTED 

NULL 

TABLES 

NULL 

TO 

NULL 

TRANSFORMATION 

Tran 

UPDATE 

Upd 

USE 

NULL 

VALUE 

NULL 

VALUES 

NULL 

VISIBILITY 

Vis 

WITH 

NULL 

WORKSTATION 

Ws 

NOTE  -  NULL  represents  the  null  string 
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The  Pascal  Language  Binding  of  GKS  Mapping  of  GKS  Function  Names  to  Pascal  Procedure  Names 
Table  2  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  Pascal  Name 


GKS  Function  Name 

Level 

Pascal  Name 

ACCUMULATE  TRANSFORMATION  MATRIX 

Lla 

GAccumTran 

ACTIVATE  WORKSTATION 

Lma 

GActivateWs 

ASSOCIATE  SEGMENT  WITH  WORKSTATION 

L2a 

GAssocSegWs 

AWAIT  EVENT 

Lmc 

GAwaitEvent 

CELL  ARRAY 

LOa 

GCellArray 

CLEAR  WORKSTATION 

Lma 

GClearWs 

CLOSE  GKS 

Lma 

GCloseGKS 

CLOSE  SEGMENT 

Lla 

GCloseScg 

CLOSE  WORKSTATION 

Lma 

GCloseWs 

COPY  SEGMENT  TO  WORKSTATION 

L2a 

GCopyScgWs 

CREATE  SEGMENT 

Lla 

GCreateSeg 

DEACTIVATE  WORKSTATION 

Lma 

GDeactivateWs 

DELETE  SEGMENT 

Lla 

GDclSeg 

DELETE  SEGMENT  FROM  WORKSTATION 

Lla 

GDelSegWs 

EMERGENCY  CLOSE  GKS 

LOa 

GEmergencyCloseGKS 

ERROR  HANDLING 

LOa 

GErrorHandling 

ERROR  LOGGING 

LOa 

GErrorLogging 

ESCAPE 

Lma 

G  Escape 

ESCAPE 

Lma 

GEscapeGeneralized 

EVALUATE  TRANSFORMATION  MATRIX 

Lla 

GEvalTran 

FILL  AREA 

Lma 

GFill 

FLUSH  DEVICE  EVENTS 

Lmc 

GFlushDeviceEvents 

GENERALIZED  DRAWING  PRIMITIVE  (GDP) 

LOa 

GGDP 

GENERALIZED  DRAWING  PRIMITIVE  (GDP) 

LOa 

GGDPGeneralized 

GET  CHOICE 

Lmc 

GGetChoice 

GET  ITEM  TYPE  FROM  GKSM 

LOa 

GGetltemType 

GET  LOCATOR 

Lmc 

GGetLocator 

GET  PICK 

Lie 

GGetPick 

GET  STRING 

Lmc 

GGetString 

GET  STROKE 

Lmc 

GGetStroke 

GET  VALUATOR 

Lmc 

GGetValuator 

INITIALISE  CHOICE 

Lmb 

GInitChoicc 

INITIALISE  LOCATOR 

Lmb 

GInitLocator 

INITIALISE  PICK 

Lib 

GInitPick 

INITIALISE  STRING 

Lmb 

GInitString 

INITIALISE  STROKE 

Lmb 

GInitStroke 

INITIALISE  VALUATOR 

Lmb 

GInitValuator 

INQUIRE  ASPECT  SOURCE  FLAGS 

Lma 

GInqASF 

INQUIRE  SET  OF  ACTIVE  WORKSTATIONS 

Lla 

GInqActiveWs 

INQUIRE  SET  OF  ASSOCIATED  WORKSTATIONS 

Lla 

GInqAssocWs 

INQUIRE  CHARACTER  BASE  VECTOR 

Lma 

GInqCharBase  Vector 

INQUIRE  CHARACTER  EXPANSION  FACTOR 

Lma 

GInqCharExpan 

INQUIRE  CHARACTER  HEIGHT 

Lma 

GInqCharHeight 

INQUIRE  CHARACTER  SPACING 

Lma 

GInqCharSpacing 

INQUIRE  CHARACTER  UP  VECTOR 

Lma 

GInqCharUpVector 

INQUIRE  CHARACTER  WIDTH 

Lma 

GInqCharWidth 

INQUIRE  CHOICE  DEVICE  STATE 

Lmb 

GInqChoiceDeviceSt 

INQUIRE  CLIPPING 

Lma 

GInqClip 

INQUIRE  COLOUR  FACILITIES 

Lma 

GlnqColrFacil 
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Mapping  of  GKS  Function  Names  to  Pascal  Procedure  Names  The  Pascal  Language  Binding  of  GKS 
Table  2  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  Pascal  Name 


Level 

Pascal  Name 

Lma 

GlnqColrRep 

Lma 

GInqCurIndivAttr 

Lma 

GInqCurNormTranNum 

Lib 

GInqCurPickId 

Lma 

GInqCurPrimAttr 

Lmb 

GInqDefChoiceDeviceData 

Lla 

GInqDefDeferSt 

Lmb 

GInqDefLocatorDeviceData 

Lib 

GInqDefPickDeviceData 

Lmb 

GInqDefStringDeviceData 

Lmb 

GInqDefStrokeDeviceData 

Lmb 

GlnqDefV  aluatorDeviceData 

Lma 

GInqDisplaySize 

Lla 

GInqDynModSegAttr 

Lla 

GInqDynModWsAttr 

Lma 

GInqFillColrInd 

Lma 

GInqFillFacil 

Lma 

GInqFillInd 

Lma 

GInqFillIntStyle 

Lla 

GInqFillRep 

Lma 

GInqFillStyleInd 

LOa 

GInqGDP 

Lmc 

GInqInputOverflow 

Lma 

GInqLevelGKS 

Lma 

GInqLineColrInd 

Lma 

GInqLineInd 

Lma 

GInqLineType 

Lma 

GInqLineWidthScale 

Lma 

GInqListColrInd 

Lla 

GInqListFillInd 

LOa 

GInqListGDP 

LOa 

GInqListNormTranNum 

Lla 

GInqListPatternInd 

Lla 

GInqListPolylineInd 

Lla 

GInqListPolymarkerInd 

Lla 

GInqListTextInd 

LOa 

GInqListWsTypes 

Lmb 

GInqLocatorDeviceSt 

Lma 

GInqMarkerColrInd 

Lma 

GInqMarkerInd 

Lma 

GInqMarkerSizeScale 

Lma 

GInqMarkerType 

LOa 

GInqMaxNormTranNum 

Lma 

GInqMaxWsSt 

Lmc 

GInqMoreEvents 

Lma 

GInqNormTran 

Lmb 

GInqNumInputDevices 

Lla 

GInqNumSegPriorities 

LOa 

GInqOpSt 

GKS  Function  Name 


INQUIRE  COLOUR  REPRESENTATION 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

INQUIRE  CURRENT  NORMALIZATION  TRANSFORMATION  NUMBER 

INQUIRE  CURRENT  PICK  IDENTIFIER 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 

INQUIRE  DEFAULT  CHOICE  DEVICE  DATA 

INQUIRE  DEFAULT  DEFERRAL  STATE  VALUES 

INQUIRE  DEFAULT  LOCATOR  DEVICE  DATA 

INQUIRE  DEFAULT  PICK  DEVICE  DATA 

INQUIRE  DEFAULT  STRING  DEVICE  DATA 

INQUIRE  DEFAULT  STROKE  DEVICE  DATA 

INQUIRE  DEFAULT  VALUATOR  DEVICE  DATA 

INQUIRE  DISPLAY  SPACE  SIZE 

INQUIRE  DYNAMIC  MODIFICATION  OF  SEGMENT  ATTRIBUTES 

INQUIRE  DYNAMIC  MODIFICATION  OF  WORKSTATION  ATTRIBUTES 

INQUIRE  FILL  AREA  COLOUR  INDEX 

INQUIRE  FILL  AREA  FACILITIES 

INQUIRE  FILL  AREA  INDEX 

INQUIRE  FILL  AREA  INTERIOR  STYLE 

INQUIRE  FILL  AREA  REPRESENTATION 

INQUIRE  FILL  AREA  STYLE  INDEX 

INQUIRE  GENERALIZED  DRAWING  PRIMITIVE 

INQUIRE  INPUT  QUEUE  OVERFLOW 

INQUIRE  LEVEL  OF  GKS 

INQUIRE  POLYLINE  COLOUR  INDEX 

INQUIRE  POLYLINE  INDEX 

INQUIRE  LINETYPE 

INQUIRE  LINEWIDTH  SCALE  FACTOR 

INQUIRE  LIST  OF  COLOUR  INDICES 

INQUIRE  LIST  OF  FILL  AREA  INDICES 

INQUIRE  LIST  OF  AVAILABLE  GENERALIZED  DRAWING  PRIMITIVES 

INQUIRE  LIST  OF  NORMALIZATION  TRANSFORMATION  NUMBERS 

INQUIRE  LIST  OF  PATTERN  INDICES 

INQUIRE  LIST  OF  POLYLINE  INDICES 

INQUIRE  LIST  OF  POLYMARKER  INDICES 

INQUIRE  LIST  OF  TEXT  INDICES 

INQUIRE  LIST  OF  AVAILABLE  WORKSTATION  TYPES 

INQUIRE  LOCATOR  DEVICE  STATE 

INQUIRE  POLYMARKER  COLOUR  INDEX 

INQUIRE  POLYMARKER  INDEX 

INQUIRE  POLYMARKER  SIZE  SCALE  FACTOR 

INQUIRE  POLYMARKER  TYPE 

INQUIRE  MAXIMUM  NORMALIZATION  TRANSFORMATION  NUMBER 
INQUIRE  MAXIMUM  LENGTH  OF  WORKSTATION  STATE  TABLES 
INQUIRE  MORE  SIMULTANEOUS  EVENTS 
INQUIRE  NORMALIZATION  TRANSFORMATION 
INQUIRE  NUMBER  OF  AVAILABLE  LOGICAL  INPUT  DEVICES 
INQUIRE  NUMBER  OF  SEGMENT  PRIORITIES  SUPPORTED 
INQUIRE  OPERATING  STATE  VALUE 
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The  Pascal  Language  Binding  of  GKS  Mapping  of  GKS  Function  Names  to  Pascal  Procedure  Names 
Table  2  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  Pascal  Name 


GKS  Function  Name 

Level 

Pascal  Name 

INQUIRE  NAME  OF  OPEN  SEGMENT 

Lla 

GInqOpenSeg 

INQUIRE  SET  OF  OPEN  WORKSTATIONS 

LOa 

GInqOpenWs 

INQUIRE  PATTERN  FACILITIES 

LOa 

GInqPatternFacil 

INQUIRE  PATTERN  REFERENCE  POINT 

Lma 

GInqPatternRefPoint 

INQUIRE  PATTERN  REPRESENTATION 

Lla 

GInqPatternRep 

INQUIRE  PATTERN  SIZE 

Lma 

GInqPatternSize 

INQUIRE  PICK  DEVICE  STATE 

Lib 

GInqPickDeviceSt 

INQUIRE  PIXEL 

LOa 

GInqPixel 

INQUIRE  PIXEL  ARRAY 

LOa 

GInqPixelArray 

INQUIRE  PIXEL  ARRAY  DIMENSIONS 

LOa 

GInqPixel  Array  Dim 

INQUIRE  POLYLINE  FACILITIES 

Lma 

GInqPolylineFacil 

INQUIRE  POLYLINE  REPRESENTATION 

Lla 

GInqPolylineRep 

INQUIRE  POLYMARKER  FACILITIES 

Lma 

GInqPolymarkerFacil 

INQUIRE  POLYMARKER  REPRESENTATION 

Lla 

GInqPolymarkerRep 

INQUIRE  PREDEFINED  COLOUR  REPRESENTATION 

LOa 

GlnqPredColrRep 

INQUIRE  PREDEFINED  FILL  AREA  REPRESENTATION 

LOa 

GInqPredFillRep 

INQUIRE  PREDEFINED  PATTERN  REPRESENTATION 

LOa 

GInqPredPatternRep 

INQUIRE  PREDEFINED  POLYLINE  REPRESENTATION 

LOa 

GInqPredPolylineRep 

INQUIRE  PREDEFINED  POLYMARKER  REPRESENTATION 

LOa 

GInqPredPolymarkerRep 

INQUIRE  PREDEFINED  TEXT  REPRESENTATION 

LOa 

GInqPredTextRep 

INQUIRE  SEGMENT  ATTRIBUTES 

Lla 

GInqSegAttr 

INQUIRE  SET  OF  SEGMENT  NAMES  IN  USE 

Lla 

GInqSegNames 

INQUIRE  SET  OF  SEGMENT  NAMES  ON  WORKSTATION 

Lla 

GInqSegNamesWs 

INQUIRE  STRING  DEVICE  STATE 

Lmb 

GInqStringDeviceSt 

INQUIRE  STROKE  DEVICE  STATE 

Lmb 

GInqStrokeDeviceSt 

INQUIRE  TEXT  ALIGNMENT 

Lma 

GInqTextAlign 

INQUIRE  TEXT  COLOUR  INDEX 

Lma 

GInqTextColrInd 

INQUIRE  TEXT  EXTENT 

Lma 

GInqTextExtent 

INQUIRE  TEXT  FACILITIES 

Lma 

GlnqTextFacil 

INQUIRE  TEXT  FONT  AND  PRECISION 

Lma 

GInqTextFontPrec 

INQUIRE  TEXT  INDEX 

Lma 

GInqTextInd 

INQUIRE  TEXT  PATH 

Lma 

GInqTextPath 

INQUIRE  TEXT  REPRESENTATION 

Lla 

GInqTextRep 

INQUIRE  VALUATOR  DEVICE  STATE 

Lmb 

GInqValuatorDeviceSt 

INQUIRE  WORKSTATION  CATEGORY 

LOa 

GInqWsCategory 

INQUIRE  WORKSTATION  CLASSIFICATION 

LOa 

GInqWsClass 

INQUIRE  WORKSTATION  CONNECTION  AND  TYPE 

Lma 

GInqWsConnType 

INQUIRE  WORKSTATION  DEFERRAL  AND  UPDATE  STATES 

LOa 

GInqWsDeferUpdSt 

INQUIRE  WORKSTATION  MAXIMUM  NUMBERS 

Lla 

GInqWsMaxNum 

INQUIRE  WORKSTATION  STATE 

LOa 

GInqWsSt 

INQUIRE  WORKSTATION  TRANSFORMATION 

Lma 

GInqWsTran 

INSERT  SEGMENT 

L2a 

GInsertSeg 

INTERPRET  ITEM 

LOa 

GInterpretItem 

MESSAGE 

Lla 

GMessage 

OPEN  GKS 

Lma 

GOpenGKS 

OPEN  WORKSTATION 

Lma 

GOpenWs 

POLYLINE 

Lma 

GPolyline 

POLYMARKER 

Lma 

GPolymarker 

READ  ITEM  FROM  GKSM 

LOa 

GReadltem 
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Table  2  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  Pascal  Name 


GKS  Function  Name 

Level 

Pascal  Name 

REDRAW  ALL  SEGMENTS  ON  WORKSTATION 

Lla 

GRedrawSegWs 

RENAME  SEGMENT 

Lla 

GRenameSeg 

REQUEST  CHOICE 

Lmb 

GReqChoice 

REQUEST  LOCATOR 

Lmb 

GReqLocator 

REQUEST  PICK 

Lib 

GReqPick 

REQUEST  STRING 

Lmb 

GReqString 

REQUEST  STROKE 

Lmb 

GReqStroke 

REQUEST  VALUATOR 

Lmb 

GReq  Valuator 

SAMPLE  CHOICE 

Lmc 

GSampleChoice 

SAMPLE  LOCATOR 

Lmc 

GSampleLocator 

SAMPLE  PICK 

Lie 

GSamplePick 

SAMPLE  STRING 

Lmc 

GSampleString 

SAMPLE  STROKE 

Lmc 

GSampleStroke 

SAMPLE  VALUATOR 

Lmc 

GSample  Valuator 

SELECT  NORMALIZATION  TRANSFORMATION 

Lma 

GSelectNormTran 

SET  ASPECT  SOURCE  FLAGS 

LOa 

GSetASF 

SET  CHARACTER  EXPANSION  FACTOR 

LOa 

GSetCharExpan 

SET  CHARACTER  HEIGHT 

Lma 

GSetCharHeight 

SET  CHARACTER  SPACING 

LOa 

GSetCharSpacing 

SET  CHARACTER  UP  VECTOR 

Lma 

GSetCharUpVector 

SET  CHOICE  MODE 

Lmb 

GSetChoiceMode 

SET  CLIPPING  INDICATOR 

Lma 

GSetClip 

SET  COLOUR  REPRESENTATION 

Lma 

GSetColrRep 

SET  DEFERRAL  STATE 

Lla 

GSetDeferSt 

SET  DETECTABILITY 

Lib 

GSetDet 

SET  FILL  AREA  COLOUR  INDEX 

Lma 

GSetFillColrlnd 

SET  FILL  AREA  INDEX 

LOa 

GSetFilllnd 

SET  FILL  AREA  INTERIOR  STYLE 

Lma 

GSetFilllntStyle 

SET  FILL  AREA  REPRESENTATION 

Lla 

GSetFillRep 

SET  FILL  AREA  STYLE  INDEX 

LOa 

GSetFillStylelnd 

SET  HIGHLIGHTING 

Lla 

GSetHighlight 

SET  POLYLINE  COLOUR  INDEX 

Lma 

GSetLineColrlnd 

SET  LINETYPE 

Lma 

GSetLineType 

SET  LINEWIDTH  SCALE  FACTOR 

LOa 

GSetLineWidthScale 

SET  LOCATOR  MODE 

Lmb 

GSetLocatorMode 

SET  POLYMARKER  COLOUR  INDEX 

Lma 

GSetMarkerColrlnd 

SET  MARKER  SIZE  SCALE  FACTOR 

LOa 

GSetMarkerSizeScale 

SET  MARKER  TYPE 

Lma 

GSetMarkerType 

SET  PATTERN  REFERENCE  POINT 

LOa 

GSctPattcrnRef  Point 

SET  PATTERN  REPRESENTATION 

Lla 

GSetPatternRep 

SET  PATTERN  SIZE 

LOa 

GSctPatternSize 

SET  PICK  IDENTIFIER 

Lib 

GSetPickld 

SET  PICK  MODE 

Lib 

GSetPickMode 

SET  POLYLINE  INDEX 

LOa 

GSetPolylincInd 

SET  POLYLINE  REPRESENTATION 

Lla 

GSetPolylincRcp 

SET  POLYMARKER  INDEX 

LOa 

GSetPolymarkerlnd 

SET  POLYMARKER  REPRESENTATION 

Lla 

GSetPolymarkerRep 

SET  SEGMENT  PRIORITY 

Lla 

GSctSegPriority 

SET  SEGMENT  TRANSFORMATION 

Lla 

GSetSegTran 
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Table  2  -  GKS  Lunction  Names  and  Pascal  Names  Ordered  by  Pascal  Name 


GKS  Function  Name 

Level 

Pascal  Name 

SET  STRING  MODE 

Lmb 

GSetStringMode 

SET  STROKE  MODE 

Lmb 

GSetStrokeMode 

SET  TEXT  ALIGNMENT 

Lma 

GSetTextAlign 

SET  TEXT  COLOUR  INDEX 

Lma 

GSetTextColrlnd 

SET  TEXT  FONT  AND  PRECISION 

LOa 

GSetTextFontPrec 

SET  TEXT  INDEX 

LOa 

GSetTextlnd 

SET  TEXT  PATH 

LOa 

GSetTextPath 

SET  TEXT  REPRESENTATION 

Lla 

GSetTextRep 

SET  VALUATOR  MODE 

Lmb 

GSetValuatorMode 

SET  VIEWPORT 

Lma 

GSetViewport 

SET  VIEWPORT  INPUT  PRIORITY 

Lmb 

GSetViewportPriority 

SET  VISIBILITY 

Lla 

GSetVis 

SET  WINDOW 

Lma 

GSetWindow 

SET  WORKSTATION  VIEWPORT 

Lma 

GSctWsViewport 

SET  WORKSTATION  WINDOW 

Lma 

GSetWsWindow 

TEXT 

Lma 

GText 

UPDATE  WORKSTATION 

Lma 

GUpdWs 

WRITE  ITEM  TO  GKSM 

LOa 

GWriteltem 

WRITE  ITEM  TO  GKSM 

LOa 

GWriteltem  Generalized 
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Table  3  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  GKS  Function  Name 


GKS  Function  Name 

Level 

Pascal  Name 

ACCUMULATE  TRANSFORMATION  MATRIX 

Lla 

GAccumTran 

ACTIVATE  WORKSTATION 

Lma 

G  Activate  Ws 

ASSOCIATE  SEGMENT  WITH  WORKSTATION 

L2a 

G  Assoc  SegWs 

AWAIT  EVENT 

Lmc 

GAwaitEvent 

CELL  ARRAY 

LOa 

GCellArray 

CLEAR  WORKSTATION 

Lma 

GClearWs 

CLOSE  GKS 

Lma 

GCloseGKS 

CLOSE  SEGMENT 

Lla 

GCloseSeg 

CLOSE  WORKSTATION 

Lma 

GCloseWs 

COPY  SEGMENT  TO  WORKSTATION 

L2a 

GCopySegWs 

CREATE  SEGMENT 

Lla 

GCreateSeg 

DEACTIVATE  WORKSTATION 

Lma 

GDeactivateWs 

DELETE  SEGMENT 

Lla 

GDelSeg 

DELETE  SEGMENT  FROM  WORKSTATION 

Lla 

GDelSegWs 

EMERGENCY  CLOSE  GKS 

LOa 

GEmergencyCloseGKS 

ERROR  HANDLING 

LOa 

GErrorHandling 

ERROR  LOGGING 

LOa 

GErrorLogging 

ESCAPE 

Lma 

G  Escape 

ESCAPE 

Lma 

GEscapeGeneralized 

EVALUATE  TRANSFORMATION  MATRIX 

Lla 

GEvalTran 

FILL  AREA 

Lma 

GFill 

FLUSH  DEVICE  EVENTS 

Lmc 

GFlushDeviceEvents 

GENERALIZED  DRAWING  PRIMITIVE  (GDP) 

LOa 

GGDP 

GENERALIZED  DRAWING  PRIMITIVE  (GDP) 

LOa 

GGDPGeneralized 

GET  CHOICE 

Lmc 

GGetChoice 

GET  ITEM  TYPE  FROM  GKSM 

LOa 

GGetltemType 

GET  LOCATOR 

Lmc 

GGetLocator 

GET  PICK 

Lie 

GGetPick 

GET  STRING 

Lmc 

GGetString 

GET  STROKE 

Lmc 

GGetStroke 

GET  VALUATOR 

Lmc 

GGetValuator 

INITIALISE  CHOICE 

Lmb 

GInitChoice 

INITIALISE  LOCATOR 

Lmb 

GInitLocator 

INITIALISE  PICK 

Lib 

GInitPick 

INITIALISE  STRING 

Lmb 

GInitString 

INITIALISE  STROKE 

Lmb 

GInitStroke 

INITIALISE  VALUATOR 

Lmb 

GInitValuator 

INQUIRE  CHOICE  DEVICE  STATE 

Lmb 

GInqChoiceDeviceSt 

INQUIRE  CLIPPING 

Lma 

GInqClip 

INQUIRE  COLOUR  FACILITIES 

Lma 

GInqCoIrFacil 

INQUIRE  COLOUR  REPRESENTATION 

Lma 

GlnqColrRep 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

Lma 

GInqCurIndivAttr 

INQUIRE  ASPECT  SOURCE  FLAGS 

Lma 

GInqASF 

INQUIRE  CHARACTER  EXPANSION  FACTOR 

Lma 

GInqCharExpan 

INQUIRE  CHARACTER  SPACING 

Lma 

GInqCharSpacing 

INQUIRE  FILL  AREA  COLOUR  INDEX 

Lma 

GInqFillColrInd 

INQUIRE  FILL  AREA  INTERIOR  STYLE 

Lma 

GInqFillIntStyle 

INQUIRE  FILL  AREA  STYLE  INDEX 

Lma 

GInqFillStyleInd 

INQUIRE  LINETYPE 

Lma 

GInqLineType 
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Table  3  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  GKS  Function  Name 


GKS  Function  Name 


Level 

Pascal  Name 

Lma 

GInqLineWidthScale 

Lma 

GInqLineColrInd 

Lma 

GInqMarkerCoirInd 

Lma 

GInqMarkerSize  Scale 

Lma 

GInqMarkerType 

Lma 

GInqTextColrInd 

Lma 

GInqTextFontPrec 

Lma 

GInqCurNormTranNum 

Lib 

GInqCurPickId 

Lma 

GInqCurPrimAttr 

Lma 

GInqCharBase  Vector 

Lma 

GInqCharHeight 

Lma 

GInqCharUpVector 

Lma 

GInqCharWidth 

Lma 

GInqFillInd 

Lma 

GInqPatternRefPoint 

Lma 

GInqPatternSize 

Lma 

GInqLineInd 

Lma 

GInqMarkerInd 

Lma 

GInqTextAlign 

Lma 

GInqTextInd 

Lma 

GInqTextPath 

Lmb 

GInqDefChoiceDeviceData 

Lla 

GInqDefDeferSt 

Lmb 

GInqDefLocatorDeviceData 

Lib 

GInqDefPickDeviceData 

Lmb 

GInqDefStringDeviceData 

Lmb 

GInqDefStrokeDe  vice  Data 

Lmb 

GInqDefValuatorDeviceData 

Lma 

GInqDisplaySize 

Lla 

GInqDynModSegAttr 

Lla 

GInqDynModWsAttr 

Lma 

GInqFillFacil 

Lla 

GInqFillRep 

LOa 

GInqGDP 

Lmc 

GInqInputOverflow 

Lma 

GInqLevelGKS 

LOa 

GInqListGDP 

LOa 

GInqListWsTypes 

Lma 

GInqListColrInd 

Lla 

GInqListFillInd 

LOa 

GInqListNormTranNum 

Lla 

GInqListPatternInd 

Lla 

GInqListPolylineInd 

Lla 

GInqListPolymarkerInd 

Lla 

GInqListTextInd 

Lmb 

GInqLocatorDeviceSt 

Lma 

GInqMaxWsSt 

LOa 

GInqMaxNormTranNum 

INQUIRE  LINEWIDTH  SCALE  FACTOR 
INQUIRE  POLYLINE  COLOUR  INDEX 
INQUIRE  POLYMARKER  COLOUR  INDEX 
INQUIRE  POLYMARKER  SIZE  SCALE  FACTOR 
INQUIRE  POLYMARKER  TYPE 
INQUIRE  TEXT  COLOUR  INDEX 
INQUIRE  TEXT  FONT  AND  PRECISION 
INQUIRE  CURRENT  NORMALIZATION  TRANSFORMATION  NUMBER 
INQUIRE  CURRENT  PICK  IDENTIFIER 
INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 
INQUIRE  CHARACTER  BASE  VECTOR 
INQUIRE  CHARACTER  HEIGHT 
INQUIRE  CHARACTER  UP  VECTOR 
INQUIRE  CHARACTER  WIDTH 
INQUIRE  FILL  AREA  INDEX 
INQUIRE  PATTERN  REFERENCE  POINT 
INQUIRE  PATTERN  SIZE 
INQUIRE  POLYLINE  INDEX 
INQUIRE  POLYMARKER  INDEX 
INQUIRE  TEXT  ALIGNMENT 
INQUIRE  TEXT  INDEX 
INQUIRE  TEXT  PATH 

INQUIRE  DEFAULT  CHOICE  DEVICE  DATA 
INQUIRE  DEFAULT  DEFERRAL  STATE  VALUES 
INQUIRE  DEFAULT  LOCATOR  DEVICE  DATA 
INQUIRE  DEFAULT  PICK  DEVICE  DATA 
INQUIRE  DEFAULT  STRING  DEVICE  DATA 
INQUIRE  DEFAULT  STROKE  DEVICE  DATA 
INQUIRE  DEFAULT  VALUATOR  DEVICE  DATA 
INQUIRE  DISPLAY  SPACE  SIZE 

INQUIRE  DYNAMIC  MODIFICATION  OF  SEGMENT  ATTRIBUTES 

INQUIRE  DYNAMIC  MODIFICATION  OF  WORKSTATION  ATTRIBUTES 

INQUIRE  FILL  AREA  FACILITIES 

INQUIRE  FILL  AREA  REPRESENTATION 

INQUIRE  GENERALIZED  DRAWING  PRIMITIVE 

INQUIRE  INPUT  QUEUE  OVERFLOW 

INQUIRE  LEVEL  OF  GKS 

INQUIRE  LIST  OF  AVAILABLE  GENERALIZED  DRAWING  PRIMITIVES 
INQUIRE  LIST  OF  AVAILABLE  WORKSTATION  TYPES 
INQUIRE  LIST  OF  COLOUR  INDICES 
INQUIRE  LIST  OF  FILL  AREA  INDICES 

INQUIRE  LIST  OF  NORMALIZATION  TRANSFORMATION  NUMBERS 

INQUIRE  LIST  OF  PATTERN  INDICES 

INQUIRE  LIST  OF  POLYLINE  INDICES 

INQUIRE  LIST  OF  POLYMARKER  INDICES 

INQUIRE  LIST  OF  TEXT  INDICES 

INQUIRE  LOCATOR  DEVICE  STATE 

INQUIRE  MAXIMUM  LENGTH  OF  WORKSTATION  STATE  TABLES 
INQUIRE  MAXIMUM  NORMALIZATION  TRANSFORMATION  NUMBER 
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Table  3  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  GKS  Function  Name 


GKS  Function  Name 

Level 

Pascal  Name 

INQUIRE  MORE  SIMULTANEOUS  EVENTS 

Lmc 

GInqMoreEvents 

INQUIRE  NAME  OF  OPEN  SEGMENT 

Lla 

GInqOpenSeg 

INQUIRE  NORMALIZATION  TRANSFORMATION 

Lma 

GInqNormTran 

INQUIRE  NUMBER  OF  AVAILABLE  LOGICAL  INPUT  DEVICES 

Lmb 

GInqNumInputDe  vices 

INQUIRE  NUMBER  OF  SEGMENT  PRIORITIES  SUPPORTED 

Lla 

GlnqNumSegPriorities 

INQUIRE  OPERATING  STATE  VALUE 

LOa 

GInqOpSt 

INQUIRE  PATTERN  FACILITIES 

LOa 

GInqPatternFacil 

INQUIRE  PATTERN  REPRESENTATION 

Lla 

GInqPatternRep 

INQUIRE  PICK  DEVICE  STATE 

Lib 

GInqPickDeviceSt 

INQUIRE  PIXEL 

LOa 

GInqPixel 

INQUIRE  PIXEL  ARRAY 

LOa 

GInqPixelArray 

INQUIRE  PIXEL  ARRAY  DIMENSIONS 

LOa 

GInqPixelArrayDim 

INQUIRE  POLYLINE  FACILITIES 

Lma 

GInqPolylineFacil 

INQUIRE  POLYLINE  REPRESENTATION 

Lla 

GInqPolylineRep 

INQUIRE  POLYMARKER  FACILITIES 

Lma 

GInqPolymarkerFacil 

INQUIRE  POLYMARKER  REPRESENTATION 

Lla 

GInqPolymarkerRep 

INQUIRE  PREDEFINED  COLOUR  REPRESENTATION 

LOa 

GlnqPredColrRep 

INQUIRE  PREDEFINED  FILL  AREA  REPRESENTATION 

LOa 

GInqPredFillRep 

INQUIRE  PREDEFINED  PATTERN  REPRESENTATION 

LOa 

GInqPredPatternRep 

INQUIRE  PREDEFINED  POLYLINE  REPRESENTATION 

LOa 

GInqPredPolylineRep 

INQUIRE  PREDEFINED  POLYMARKER  REPRESENTATION 

LOa 

GInqPredPolymarkerRep 

INQUIRE  PREDEFINED  TEXT  REPRESENTATION 

LOa 

GInqPredTextRep 

INQUIRE  SEGMENT  ATTRIBUTES 

Lla 

GInqSegAttr 

INQUIRE  SET  OF  ACTIVE  WORKSTATIONS 

Lla 

GInqActiveWs 

INQUIRE  SET  OF  ASSOCIATED  WORKSTATIONS 

Lla 

GInqAssocWs 

INQUIRE  SET  OF  OPEN  WORKSTATIONS 

LOa 

GInqOpenWs 

INQUIRE  SET  OF  SEGMENT  NAMES  IN  USE 

Lla 

GInqSegNames 

INQUIRE  SET  OF  SEGMENT  NAMES  ON  WORKSTATION 

Lla 

GInqSegNamesWs 

INQUIRE  STRING  DEVICE  STATE 

Lmb 

GlnqStringDeviceSt 

INQUIRE  STROKE  DEVICE  STATE 

Lmb 

GInqStrokeDeviceSt 

INQUIRE  TEXT  EXTENT 

Lma 

GInqTextExtent 

INQUIRE  TEXT  FACILITIES 

Lma 

GInqTextFacil 

INQUIRE  TEXT  REPRESENTATION 

Lla 

GInqTextRep 

INQUIRE  VALUATOR  DEVICE  STATE 

Lmb 

GInqValuatorDeviceSt 

INQUIRE  WORKSTATION  CATEGORY 

LOa 

GInqWsCategory 

INQUIRE  WORKSTATION  CLASSIFICATION 

LOa 

GInqWsClass 

INQUIRE  WORKSTATION  CONNECTION  AND  TYPE 

Lma 

GInqWsConnType 

INQUIRE  WORKSTATION  DEFERRAL  AND  UPDATE  STATES 

LOa 

GInqWsDeferUpdSt 

INQUIRE  WORKSTATION  MAXIMUM  NUMBERS 

Lla 

GInqWsMaxNum 

INQUIRE  WORKSTATION  STATE 

LOa 

GInqWsSt 

INQUIRE  WORKSTATION  TRANSFORMATION 

Lma 

GInqWsTran 

INSERT  SEGMENT 

L2a 

GInsertSeg 

INTERPRET  ITEM 

LOa 

GInterpretItem 

MESSAGE 

Lla 

G  Message 

OPEN  GKS 

Lma 

GOpenGKS 

OPEN  WORKSTATION 

Lma 

GOpenWs 

POLYLINE 

Lma 

GPolyline 

POLYMARKER 

Lma 

GPolymarker 

READ  ITEM  FROM  GKSM 

LOa 

GReadltem 
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Table  3  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  GKS  Function  Name 


GKS  Function  Name 

Level 

Pascal  Name 

REDRAW  ALL  SEGMENTS  ON  WORKSTATION 

LI  a 

GRedrawSegWs 

RENAME  SEGMENT 

Lla 

GRenaraeSeg 

REQUEST  CHOICE 

Lmb 

GReqChoice 

REQUEST  LOCATOR 

Lmb 

GReqLocator 

REQUEST  PICK 

Lib 

GReqPick 

REQUEST  STRING 

Lmb 

GReqString 

REQUEST  STROKE 

Lmb 

GReqStroke 

REQUEST  VALUATOR 

Lmb 

GReqValuator 

SAMPLE  CHOICE 

Lmc 

GSampleChoice 

SAMPLE  LOCATOR 

Lmc 

GSample  Locator 

SAMPLE  PICK 

Lie 

GSamplePick 

SAMPLE  STRING 

Lmc 

GSampleString 

SAMPLE  STROKE 

Lmc 

GSampleStroke 

SAMPLE  VALUATOR 

Lmc 

GSampleValuator 

SELECT  NORMALIZATION  TRANSFORMATION 

Lma 

GSelectNormTran 

SET  ASPECT  SOURCE  FLAGS 

LOa 

GSetASF 

SET  CHARACTER  EXPANSION  FACTOR 

LOa 

GSetCharExpan 

SET  CHARACTER  HEIGHT 

Lma 

GSetCharHeight 

SET  CHARACTER  SPACING 

LOa 

GSetCharSpacing 

SET  CHARACTER  UP  VECTOR 

Lma 

GSetCharUpVector 

SET  CHOICE  MODE 

Lmb 

GSetChoiceMode 

SET  CLIPPING  INDICATOR 

Lma 

GSetClip 

SET  COLOUR  REPRESENTATION 

Lma 

GSetColrRep 

SET  DEFERRAL  STATE 

Lla 

GSetDeferSt 

SET  DETECTABILITY 

Lib 

GSetDet 

SET  FILL  AREA  COLOUR  INDEX 

Lma 

GSetFillColrlnd 

SET  FILL  AREA  INDEX 

LOa 

GSetFilllnd 

SET  FILL  AREA  INTERIOR  STYLE 

Lma 

GSetFilllntStyle 

SET  FILL  AREA  REPRESENTATION 

Lla 

GSetFillRep 

SET  FILL  AREA  STYLE  INDEX 

LOa 

GSetFillStylelnd 

SET  HIGHLIGHTING 

Lla 

GSetHighlight 

SET  LINETYPE 

Lma 

GSetLineType 

SET  LINEWIDTH  SCALE  FACTOR 

LOa 

GSetLineWidthScale 

SET  LOCATOR  MODE 

Lmb 

GSetLocatorMode 

SET  MARKER  SIZE  SCALE  FACTOR 

LOa 

GSetMarkerSize  Scale 

SET  MARKER  TYPE 

Lma 

GSetMarkerType 

SET  PATTERN  REFERENCE  POINT 

LOa 

GSetPatternRefPoint 

SET  PATTERN  REPRESENTATION 

Lla 

GSetPatternRep 

SET  PATTERN  SIZE 

LOa 

GSetPatternSize 

SET  PICK  IDENTIFIER 

Lib 

GSetPickld 

SET  PICK  MODE 

Lib 

GSetPickMode 

SET  POLYLINE  COLOUR  INDEX 

Lma 

GSetLineColrlnd 

SET  POLYLINE  INDEX 

LOa 

GSetPolylinelnd 

SET  POLYLINE  REPRESENTATION 

Lla 

GSetPolylineRep 

SET  POLYMARKER  COLOUR  INDEX 

Lma 

GSetMarkerColrlnd 

SET  POLYMARKER  INDEX 

LOa 

GSetPolymarkerlnd 

SET  POLYMARKER  REPRESENTATION 

Lla 

GSetPolymarkerRep 

SET  SEGMENT  PRIORITY 

Lla 

GSetSegPriority 

SET  SEGMENT  TRANSFORMATION 

Lla 

GSetSegTran 
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Table  3  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  GKS  Function  Name 


GKS  Function  Name 

Level 

Pascal  Name 

SET  STRING  MODE 

Lmb 

GSetStringMode 

SET  STROKE  MODE 

Lmb 

GSetStrokeMode 

SET  TEXT  ALIGNMENT 

Lma 

GSetTextAlign 

SET  TEXT  COLOUR  INDEX 

Lma 

GSetTextColrlnd 

SET  TEXT  FONT  AND  PRECISION 

LOa 

GSetTextFontPrec 

SET  TEXT  INDEX 

LOa 

GSetTextlnd 

SET  TEXT  PATH 

LOa 

GSetTextPath 

SET  TEXT  REPRESENTATION 

Lla 

GSetTextRep 

SET  VALUATOR  MODE 

Lmb 

GSetValuatorMode 

SET  VIEWPORT 

Lma 

GSetViewport 

SET  VIEWPORT  INPUT  PRIORITY 

Lmb 

GSetViewportPriority 

SET  VISIBILITY 

Lla 

GSetVis 

SET  WINDOW 

Lma 

GSetWindow 

SET  WORKSTATION  VIEWPORT 

Lma 

GSetWsViewport 

SET  WORKSTATION  WINDOW 

Lma 

GSetWsWindow 

TEXT 

Lma 

GText 

UPDATE  WORKSTATION 

Lma 

GUpdWs 

WRITE  ITEM  TO  GKSM 

LOa 

GWriteltem 

WRITE  ITEM  TO  GKSM 

LOa 

GWriteltemGeneralized 
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Table  4  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  Level 


GKS  Function  Name 

Level 

Pascal  Name 

ACTIVATE  WORKSTATION 

Lma 

GActivateWs 

CLEAR  WORKSTATION 

Lma 

GClearWs 

CLOSE  GKS 

Lma 

GCloseGKS 

CLOSE  WORKSTATION 

Lma 

GCloseWs 

DEACTIVATE  WORKSTATION 

Lma 

GDeactivateWs 

ESCAPE 

Lma 

G  Escape 

ESCAPE 

Lma 

GEscapeGeneralized 

FILL  AREA 

Lma 

GFill 

INQUIRE  ASPECT  SOURCE  FLAGS 

Lma 

GInqASF 

INQUIRE  CHARACTER  BASE  VECTOR 

Lma 

GInqCharBaseVector 

INQUIRE  CHARACTER  EXPANSION  FACTOR 

Lma 

GInqCharExpan 

INQUIRE  CHARACTER  HEIGHT 

Lma 

GInqCharHeight 

INQUIRE  CHARACTER  SPACING 

Lma 

GInqCharSpacing 

INQUIRE  CHARACTER  UP  VECTOR 

Lma 

GInqCharUp  Vector 

INQUIRE  CHARACTER  WIDTH 

Lma 

GInqCharWidth 

INQUIRE  CLIPPING 

Lma 

GInqClip 

INQUIRE  COLOUR  FACILITIES 

Lma 

GlnqColrFacil 

INQUIRE  COLOUR  REPRESENTATION 

Lma 

GlnqColrRep 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

Lma 

GInqCurIndivAttr 

INQUIRE  CURRENT  NORMALIZATION  TRANSFORMATION  NUMBER 

Lma 

GInqCurNormTranNum 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 

Lma 

GInqCurPrimAttr 

INQUIRE  DISPLAY  SPACE  SIZE 

Lma 

GInqDisplaySize 

INQUIRE  FILL  AREA  COLOUR  INDEX 

Lma 

GInqFillColrInd 

INQUIRE  FILL  AREA  FACILITIES 

Lma 

GInqFillFacil 

INQUIRE  FILL  AREA  INDEX 

Lma 

GInqFillInd 

INQUIRE  FILL  AREA  INTERIOR  STYLE 

Lma 

GInqFillIntStyle 

INQUIRE  FILL  AREA  STYLE  INDEX 

Lma 

GInqFillStyleInd 

INQUIRE  LEVEL  OF  GKS 

Lma 

GInqLevelGKS 

INQUIRE  LINETYPE 

Lma 

GInqLineType 

INQUIRE  LINEWIDTH  SCALE  FACTOR 

Lma 

GInqLineWidthScale 

INQUIRE  LIST  OF  COLOUR  INDICES 

Lma 

GInqListColrInd 

INQUIRE  MAXIMUM  LENGTH  OF  WORKSTATION  STATE  TABLES 

Lma 

GInqMaxWsSt 

INQUIRE  NORMALIZATION  TRANSFORMATION 

Lma 

GInqNormTran 

INQUIRE  PATTERN  REFERENCE  POINT 

Lma 

GInqPatternRefPoint 

INQUIRE  PATTERN  SIZE 

Lma 

GInqPatternSize 

INQUIRE  POLYLINE  COLOUR  INDEX 

Lma 

GInqLineColrInd 

INQUIRE  POLYLINE  FACILITIES 

Lma 

GInqPolylineFacil 

INQUIRE  POLYLINE  INDEX 

Lma 

GInqLineInd 

INQUIRE  POLYMARKER  COLOUR  INDEX 

Lma 

GInqMarkerCoIrInd 

INQUIRE  POLYMARKER  FACILITIES 

Lma 

GInqPolymarkerFacil 

INQUIRE  POLYMARKER  INDEX 

Lma 

GInqMarkerInd 

INQUIRE  POLYMARKER  SIZE  SCALE  FACTOR 

Lma 

GInqMarkerSizeScale 

INQUIRE  POLYMARKER  TYPE 

Lma 

GInqMarkerType 

INQUIRE  TEXT  ALIGNMENT 

Lma 

GInqTextAlign 

INQUIRE  TEXT  COLOUR  INDEX 

Lma 

GInqTextColrInd 

INQUIRE  TEXT  EXTENT 

Lma 

GInqTextExtent 

INQUIRE  TEXT  FACILITIES 

Lma 

GInqTextFacil 

INQUIRE  TEXT  FONT  AND  PRECISION 

Lma 

GInqTextFontPrec 

INQUIRE  TEXT  INDEX 

Lma 

GInqTextInd 
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Table  4  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  Level 


GKS  Function  Name 

Level 

Pascal  Name 

INQUIRE  TEXT  PATH 

Lma 

GInqTextPath 

INQUIRE  WORKSTATION  CONNECTION  AND  TYPE 

Lma 

GInqWsConnType 

INQUIRE  WORKSTATION  TRANSFORMATION 

Lma 

GInqWsTran 

OPEN  GKS 

Lma 

GOpenGKS 

OPEN  WORKSTATION 

Lma 

GOpenWs 

POLYLINE 

Lma 

GPolyline 

POLYMARKER 

Lma 

GPolymarker 

SELECT  NORMALIZATION  TRANSFORMATION 

Lma 

GSelectNormTran 

SET  CHARACTER  HEIGHT 

Lma 

GSetCharHeight 

SET  CHARACTER  UP  VECTOR 

Lma 

GSetCharUpVector 

SET  CLIPPING  INDICATOR 

Lma 

GSetClip 

SET  COLOUR  REPRESENTATION 

Lma 

GSetColrRep 

SET  FILL  AREA  COLOUR  INDEX 

Lma 

GSetFillColrlnd 

SET  FILL  AREA  INTERIOR  STYLE 

Lma 

GSetFilllntStyle 

SET  LINETYPE 

Lma 

GSetLineType 

SET  MARKER  TYPE 

Lma 

GSetMarkerType 

SET  POLYLINE  COLOUR  INDEX 

Lma 

GSetLineColrlnd 

SET  POLYMARKER  COLOUR  INDEX 

Lma 

GSetMarkerColrlnd 

SET  TEXT  ALIGNMENT 

Lma 

GSetTextAlign 

SET  TEXT  COLOUR  INDEX 

Lma 

GSetTextColrlnd 

SET  VIEWPORT 

Lma 

GSetViewport 

SET  WINDOW 

Lma 

GSetWindow 

SET  WORKSTATION  VIEWPORT 

Lma 

G  Se  t  Ws  V  ie  wport 

SET  WORKSTATION  WINDOW 

Lma 

GSetWsWindow 

TEXT 

Lma 

GText 

UPDATE  WORKSTATION 

Lma 

GUpdWs 

INITIALISE  CHOICE 

Lmb 

GInitChoice 

INITIALISE  LOCATOR 

Lmb 

GInitLocator 

INITIALISE  STRING 

Lmb 

GInitString 

INITIALISE  STROKE 

Lmb 

GInitStroke 

INITIALISE  VALUATOR 

Lmb 

GInitValuator 

INQUIRE  CHOICE  DEVICE  STATE 

Lmb 

GInqChoiceDeviceSt 

INQUIRE  DEFAULT  CHOICE  DEVICE  DATA 

Lmb 

GInqDefChoiceDeviceData 

INQUIRE  DEFAULT  LOCATOR  DEVICE  DATA 

Lmb 

GInqDefLocatorDeviceData 

INQUIRE  DEFAULT  STRING  DEVICE  DATA 

Lmb 

GInqDefStringDeviceData 

INQUIRE  DEFAULT  STROKE  DEVICE  DATA 

Lmb 

GInqDefStrokeDeviceData 

INQUIRE  DEFAULT  VALUATOR  DEVICE  DATA 

Lmb 

GlnqDefV  aluatorDeviceData 

INQUIRE  LOCATOR  DEVICE  STATE 

Lmb 

GInqLocatorDeviceSt 

INQUIRE  NUMBER  OF  AVAILABLE  LOGICAL  INPUT  DEVICES 

Lmb 

GInqNumInputDe  vices 

INQUIRE  STRING  DEVICE  STATE 

Lmb 

GInqStringDeviceSt 

INQUIRE  STROKE  DEVICE  STATE 

Lmb 

GInqStrokeDeviceSt 

INQUIRE  VALUATOR  DEVICE  STATE 

Lmb 

GInqValuatorDeviceSt 

REQUEST  CHOICE 

Lmb 

GReqChoice 

REQUEST  LOCATOR 

Lmb 

GReqLocator 

REQUEST  STRING 

Lmb 

GReqString 

REQUEST  STROKE 

Lmb 

GReqStroke 

REQUEST  VALUATOR 

Lmb 

GReqValuator 

SET  CHOICE  MODE 

Lmb 

GSetChoiceMode 

SET  LOCATOR  MODE 

Lmb 

GSetLocatorMode 
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Table  4  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  Level 


GKS  Function  Name 

Level 

Pascal  Name 

SET  STRING  MODE 

Lmb 

GSetStringMode 

SET  STROKE  MODE 

Lmb 

GSetStrokeMode 

SET  VALUATOR  MODE 

Lmb 

GSetValuatorMode 

SET  VIEWPORT  INPUT  PRIORITY 

Lmb 

GSetViewportPriority 

AWAIT  EVENT 

Lmc 

GAwaitEvent 

FLUSH  DEVICE  EVENTS 

Lmc 

GFlushDe  vice  Events 

GET  CHOICE 

Lmc 

GGetChoice 

GET  LOCATOR 

Lmc 

GGetLocator 

GET  STRING 

Lmc 

GGetString 

GET  STROKE 

Lmc 

GGetStroke 

GET  VALUATOR 

Lmc 

GGetValuator 

INQUIRE  INPUT  QUEUE  OVERFLOW 

Lmc 

GInqInputOverflow 

INQUIRE  MORE  SIMULTANEOUS  EVENTS 

Lmc 

GInqMore  Events 

SAMPLE  CHOICE 

Lmc 

GSampleChoice 

SAMPLE  LOCATOR 

Lmc 

GSampleLocator 

SAMPLE  STRING 

Lmc 

GSampleString 

SAMPLE  STROKE 

Lmc 

GSampleStroke 

SAMPLE  VALUATOR 

Lmc 

GSample  Valuator 

CELL  ARRAY 

LOa 

GCellArray 

EMERGENCY  CLOSE  GKS 

LOa 

GEmergencyCloseGKS 

ERROR  HANDLING 

LOa 

GErrorHandling 

ERROR  LOGGING 

LOa 

GErrorLogging 

GENERALIZED  DRAWING  PRIMITIVE  (GDP) 

LOa 

GGDP 

GENERALIZED  DRAWING  PRIMITIVE  (GDP) 

LOa 

GGDPGeneralized 

GET  ITEM  TYPE  FROM  GKSM 

LOa 

GGetltemType 

INQUIRE  GENERALIZED  DRAWING  PRIMITIVE 

LOa 

GInqGDP 

INQUIRE  LIST  OF  AVAILABLE  GENERALIZED  DRAWING  PRIMITIVES 

LOa 

GInqListGDP 

INQUIRE  LIST  OF  AVAILABLE  WORKSTATION  TYPES 

LOa 

GInqListWsTypes 

INQUIRE  LIST  OF  NORMALIZATION  TRANSFORMATION  NUMBERS 

LOa 

GInqListNormTranNum 

INQUIRE  MAXIMUM  NORMALIZATION  TRANSFORMATION  NUMBER 

LOa 

GInqMaxNormTranNum 

INQUIRE  OPERATING  STATE  VALUE 

LOa 

GInqOpSt 

INQUIRE  PATTERN  FACILITIES 

LOa 

G  InqPatternFacil 

INQUIRE  PIXEL 

LOa 

GInqPixel 

INQUIRE  PIXEL  ARRAY 

LOa 

GInqPixelArray 

INQUIRE  PIXEL  ARRAY  DIMENSIONS 

LOa 

GInqPixelArrayDim 

INQUIRE  PREDEFINED  COLOUR  REPRESENTATION 

LOa 

GlnqPredColrRep 

INQUIRE  PREDEFINED  FILL  AREA  REPRESENTATION 

LOa 

GInqPredFillRep 

INQUIRE  PREDEFINED  PATTERN  REPRESENTATION 

LOa 

GInqPredPatternRep 

INQUIRE  PREDEFINED  POLYLINE  REPRESENTATION 

LOa 

GInqPredPolylineRep 

INQUIRE  PREDEFINED  POLYMARKER  REPRESENTATION 

LOa 

GInqPredPolymarkerRep 

INQUIRE  PREDEFINED  TEXT  REPRESENTATION 

LOa 

GInqPredTextRep 

INQUIRE  SET  OF  OPEN  WORKSTATIONS 

LOa 

GInqOpenWs 

INQUIRE  WORKSTATION  CATEGORY 

LOa 

GInqWsCategory 

INQUIRE  WORKSTATION  CLASSIFICATION 

LOa 

GInqWsClass 

INQUIRE  WORKSTATION  DEFERRAL  AND  UPDATE  STATES 

LOa 

GInqWsDeferUpdSt 

INQUIRE  WORKSTATION  STATE 

LOa 

GInqWsSt 

INTERPRET  ITEM 

LOa 

GInterpretItem 

READ  ITEM  FROM  GKSM 

LOa 

GReadltem 

SET  ASPECT  SOURCE  FLAGS 

LOa 

GSetASF 
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Level 

Pascal  Name 

LOa 

GSetCharExpan 

LOa 

GSetCharSpacing 

LOa 

GSetFilllnd 

LOa 

GSetFillStylelnd 

LOa 

GSetLineWidthScale 

LOa 

GSetMarkerSizeScale 

LOa 

GSetPatternRefPoint 

LOa 

GSetPatternSize 

LOa 

GSetPolylinelnd 

LOa 

GSetPolymarkerlnd 

LOa 

GSetTextFontPrec 

LOa 

GSetTextlnd 

LOa 

GSetTextPath 

LOa 

GWriteltem 

LOa 

GWriteltemGeneralized 

Lla 

GAccumTran 

Lla 

GCloseSeg 

Lla 

GCreateSeg 

Lla 

GDelSeg 

Lla 

GDelSegWs 

Lla 

GEvalTran 

Lla 

GInqDefDeferSt 

Lla 

GInqDynModSegAttr 

Lla 

GInqDynModWsAttr 

Lla 

GInqFillRep 

Lla 

GInqListFillInd 

Lla 

GInqListPatternInd 

Lla 

GInqListPolylineInd 

LI  a 

GInqListPolymarkerInd 

Lla 

GInqListTextInd 

Lla 

GInqOpenSeg 

Lla 

GInqNumSegPriorities 

Lla 

GlnqPatternRep 

Lla 

GInqPolylineRep 

Lla 

GInqPolymarkerRep 

Lla 

GInqSegAttr 

Lla 

GInqActiveWs 

Lla 

GInq  AssocWs 

Lla 

GInqSegNames 

Lla 

GInqSegNamesWs 

Lla 

GInqTextRep 

Lla 

GInqWsMaxNum 

Lla 

G  Message 

Lla 

GRedrawSegWs 

Lla 

GRenameSeg 

Lla 

GSetDeferSt 

Lla 

GSetFillRep 

Lla 

GSetHighlight 

Lla 

GSetPatternRep 

GKS  Function  Name 


SET  CHARACTER  EXPANSION  FACTOR 

SET  CHARACTER  SPACING 

SET  FILL  AREA  INDEX 

SET  FILL  AREA  STYLE  INDEX 

SET  LINEWIDTH  SCALE  FACTOR 

SET  MARKER  SIZE  SCALE  FACTOR 

SET  PATTERN  REFERENCE  POINT 

SET  PATTERN  SIZE 

SET  POLYLINE  INDEX 

SET  POLYMARKER  INDEX 

SET  TEXT  FONT  AND  PRECISION 

SET  TEXT  INDEX 

SET  TEXT  PATH 

WRITE  ITEM  TO  GKSM 

WRITE  ITEM  TO  GKSM 

ACCUMULATE  TRANSFORMATION  MATRIX 
CLOSE  SEGMENT 
CREATE  SEGMENT 
DELETE  SEGMENT 

DELETE  SEGMENT  FROM  WORKSTATION 

EVALUATE  TRANSFORMATION  MATRIX 

INQUIRE  DEFAULT  DEFERRAL  STATE  VALUES 

INQUIRE  DYNAMIC  MODIFICATION  OF  SEGMENT  ATTRIBUTES 

INQUIRE  DYNAMIC  MODIFICATION  OF  WORKSTATION  A1TRIBUTES 

INQUIRE  FILL  AREA  REPRESENTATION 

INQUIRE  LIST  OF  FILL  AREA  INDICES 

INQUIRE  LIST  OF  PATTERN  INDICES 

INQUIRE  LIST  OF  POLYLINE  INDICES 

INQUIRE  LIST  OF  POLYMARKER  INDICES 

INQUIRE  LIST  OF  TEXT  INDICES 

INQUIRE  NAME  OF  OPEN  SEGMENT 

INQUIRE  NUMBER  OF  SEGMENT  PRIORITIES  SUPPORTED 

INQUIRE  PATTERN  REPRESENTATION 

INQUIRE  POLYLINE  REPRESENTATION 

INQUIRE  POLYMARKER  REPRESENTATION 

INQUIRE  SEGMENT  ATTRIBUTES 

INQUIRE  SET  OF  ACTIVE  WORKSTATIONS 

INQUIRE  SET  OF  ASSOCIATED  WORKSTATIONS 

INQUIRE  SET  OF  SEGMENT  NAMES  IN  USE 

INQUIRE  SET  OF  SEGMENT  NAMES  ON  WORKSTATION 

INQUIRE  TEXT  REPRESENTATION 

INQUIRE  WORKSTATION  MAXIMUM  NUMBERS 

MESSAGE 

REDRAW  ALL  SEGMENTS  ON  WORKSTATION 

RENAME  SEGMENT 

SET  DEFERRAL  STATE 

SET  FILL  AREA  REPRESENTATION 

SET  HIGHLIGHTING 

SET  PATTERN  REPRESENTATION 
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Table  4  -  GKS  Function  Names  and  Pascal  Names  Ordered  by  Level 


GKS  Function  Name 

Level 

Pascal  Name 

SET  POLYMARKER  REPRESENTATION 

Lla 

GSetPolymarkerRep 

SET  SEGMENT  PRIORITY 

LI  a 

GSctSegPriority 

SET  SEGMENT  TRANSFORMATION 

Lla 

GSetSegTran 

SET  TEXT  REPRESENTATION 

Lla 

GSetTextRep 

SET  VISIBILITY 

Lla 

GSetVis 

INITIALISE  PICK 

Lib 

GInitPick 

INQUIRE  CURRENT  PICK  IDENTIFIER 

Lib 

GInqCurPickId 

INQUIRE  DEFAULT  PICK  DEVICE  DATA 

Lib 

GInqDefPickDeviceData 

INQUIRE  PICK  DEVICE  STATE 

Lib 

GInqPickDeviceSt 

REQUEST  PICK 

Lib 

GReqPick 

SET  DETECTABILITY 

Lib 

GSetDet 

SET  PICK  IDENTIFIER 

Lib 

GSetPickld 

SET  PICK  MODE 

Lib 

GSetPickMode 

GET  PICK 

Lie 

GGetPick 

SAMPLE  PICK 

Lie 

GSamplePick 

ASSOCIATE  SEGMENT  WITH  WORKSTATION 

L2a 

G  AssocSegWs 

COPY  SEGMENT  TO  WORKSTATION 

L2a 

GCopySegWs 

INSERT  SEGMENT 

L2a 

GInsertSeg 
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3.3  Representation  of  GKS  Data  Types 

Clause  6  of  ANSI  X3. 124-1985  defines  GKS  data  structures  which  are  an  integral  part  of  the  system. 
These  data  structures  are  bound  as  the  following  Pascal  data  structures. 

(1)  The  GKS  types  integer  and  real  are  mapped  to  Pascal  integer  and  real.  Where  GKS  specifies  a 
subrange  of  integer,  that  subrange  is  used. 

(2)  GKS  enumeration  types  are  mapped  to  Pascal  enumerated  types  (or  subranges  of  enumerated 
types),  often  with  the  addition  of  sentinel  words  or  characters  to  avoid  name  clashes.  For  example,  the 
GKS  type  (HIGHER, LOWER)  in  the  SET  VIEWPORT  INPUT  PRIORITY  function  is  in  Pascal 
the  type  GEPriority  with  elements  (GVHigher,GVLower). 

(3)  String  is  represented  as  a  fixed  length  type  (GAString). 

(4)  A  GKS  point  is  mapped  to  the  type  GRPoint  in  Pascal,  which  is  a  record  with  x,y(  :  real)  fields.  A 
fixed  length  array  of  GRPoint  (GAPointArray)  is  used  in  procedure  definitions. 

(5)  Sets  in  GKS  are  represented  as  arrays  in  Pascal  when  the  cardinality  of  the  set  is  potentially  infin¬ 
ite  (for  example,  the  set  of  workstation  identifiers).  Otherwise  GKS  sets  are  Pascal  sets  -  the  only  two 
being  the  set  of  primitives  associated  with  a  GENERALIZED  DRAWING  PRIMITIVE,  and  the  set 
of  fill  area  interior  styles. 

(6)  The  GKS  data  records  are  represented  as  Pascal  records. 

(7)  More  complex  data  structures  are  represented  as  Pascal  records  and  arrays. 

The  definition  of  all  of  the  data  structures  is  given  in  clause  5. 

3.4  Naming  Conventions  for  Data  Types 

A  consistent  naming  scheme  for  data  types  is  used. 

(1)  Constants  are  prefixed  with  “GC”. 

(2)  Scalar  types  are  prefixed  with  “GT”. 

(3)  Enumerated  types  are  prefixed  with  “GE”. 

(4)  Values  of  enumerated  types  are  prefixed  with  “GV”. 

(5)  Arrays  are  prefixed  with  “GA”. 

(6)  Records  are  prefixed  with  “GR”. 

(7)  Sets  are  prefixed  with  “GS”. 

Mixtures  of  upper-  and  lowercase  letters  are  used  extensively  in  the  type  and  procedure  names.  This  is  to 
aid  readability  and  is  not  otherwise  significant.  International  spelling  is  used  in  all  instances  where  there 
is  a  conflict  with  U.S.  spelling. 

3.5  Implementation-Dependent  Characteristics 

There  are  a  number  of  implementation-defined  characteristics  necessary  in  a  Pascal  interface.  Resolutions 
of  such  implementation-dependent  features  should  be  detailed  in  the  documentation  of  a  Pascal  imple¬ 
mentation. 

(1)  The  error  reporting  file  name  specified  by  GKS  as  a  parameter  to  the  OPEN  GKS  function  is 
represented  as  an  implementation-defined  type,  GTErrorFileName.  This  type  and  the  constant 
GCDefErrorLog  shall  be  defined  so  that  GCDcfErrorLog  is  compatible  with  GTErrorFileName. 

(2)  The  workstation  connection  identifier,  specified  by  GKS  as  a  parameter  to  the  OPEN  WORKS¬ 
TATION  function,  is  represented  in  Pascal  as  a  string.  The  implementation  documentation  should 
describe  the  meaning  and  use  of  the  string. 
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(3)  There  are  a  number  of  implementation-defined  constants,  which  are  shown  in  5.1,  and 
implementation-defined  types,  which  are  shown  in  5.2. 

(4)  The  GKS  Data  Record  is  represented  as  a  number  of  types  depending  on  the  purpose  of  the 
records.  GRLocatorData,  GRStrokeData,  GR  Valuator  Data,  GRChoiceData,  GRPickData  and 
GRStringData  are  used  in  the  INITIALISE  INPUT  functions  and  the  corresponding  inquiry  functions. 
GREscapeDataln  and  GREscapeDataOut  are  for  use  with  the  ESCAPE  function.  GRGDPData  is  for 
use  with  the  GENERALIZED  DRAWING  PRIMITIVE.  The  form  of  these  records  is  described  in 
3.6. 

(5)  In  ANSI/IEEE  770X3.97-1983,  separate  compilation  is  not  prohibited,  but  a  standard  manner  for 
achieving  this  compilation  is  not  given.  Separate  compilation  is  crucial  for  GKS,  since  an  implementa¬ 
tion  is  not  feasible  unless  the  underlying  Pascal  supports  separate  compilation.  The  implementation 
documentation  should  specify  how  data  types  and  procedure  definitions  are  to  be  imported  into  the 
application  environment  and  the  means  of  binding  the  physical  GKS  implementation  with  the  pro¬ 
gram. 

(6)  The  OPEN  GKS  function  (GOpenGKS)  has  parameters  “ErrorFile”  and  “MemoryUnits”.  Con¬ 
stant  values,  GCDefErrorLog  and  GCDefMemory,  exist  which  will  evoke  the  default  behaviour  of  the 
implementation.  The  implementation  documentation  should  describe  the  meaning  and  behaviour 
associated  with  these  default  values. 

3.6  Data  Records  Subject  to  Registration 

The  GKS  Data  Records  described  above  are  all  defined  in  a  similar  manner.  The  implementation  docu¬ 
mentation  shall  detail  the  structure  of  these  records,  and  the  implementation  may  provide  procedures  for 
constructing  and  manipulating  such  records. 

The  form  for  each  of  these  records  is: 
record 

case  tag  :  TagType  of 

-99  :  (U0099fieldl;U0099field2;U0099field3); 

-27  :  (U0027fieldl;  U0027field2); 

15  :  (R0015fieldl;  R0015field2;  R0015field3;  R0015field4); 

42  :  (R0042fieldl) 

end; 


N  OTE  -  This  record 


does  not  reflect  exact  Pascal  syntax,  but  indicates  the  type  of  information  which  the  record  shall  contain. 


Each  field  identifier  is  to  be  prefixed  with  a  representation  of  the  tag  value.  The  representation  is  con¬ 
structed  as: 

<reg/unreg><tag  value> 

Where  <reg/unreg>  is  "R”  for  a  registered  entry  or  "U"  for  an  unregistered  entry,  and  <tag  value >  is  a 
string  representing  the  absolute  value  of  the  tag. 

3.7  Return  Parameter  Arrays 

Several  inquiry  functions  return  a  variable  amount  of  information  depending  on  the  implementation,  the 
workstations  in  use,  or  the  characteristics  of  the  calling  program.  The  corresponding  Pascal  procedures 
have  additional  parameters  which  allow  the  calling  program  to  specify  a  subset  of  information  to  be 
returned. 
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Three  parameters  are  added  to  these  procedures.  They  are  defined  as  follows: 

(1)  Start:  specifies  an  index  into  the  list  of  available  values.  This  may  take  on  the  values  1  to  the  size 
of  the  list.  If  the  value  of  Start  is  outside  of  this  range,  an  error  is  generated. 

(2)  Size:  specifies  the  number  of  values  to  be  returned.  Size  is  constrained  to  be  less  than  or  equal  to 
the  size  of  the  array  used  to  pass  information. 

(3)  Done:  is  set  to  TRUE  if  the  last  of  the  values  is  returned  by  the  call.  It  is  set  to  FALSE  if  addi¬ 
tional  values  exist  beyond  the  last  value  returned  by  the  call. 

3.8  Registration  1  ^ 

In  the  GKS  standard,  ANSI  X3. 124-1985,  certain  value  ranges  are  reserved  for  registration  as  graphical 
items.  The  registered  graphical  items  will  be  bound  to  Pascal  (and  other  programming  languages).  The 
registered  item  bindings  will  be  consistent  with  the  binding  presented  in  this  part  of  ANSI  X3.124. 


1)  For  the  purpose  of  this  standard  and  according  to  the  rules  for  the  designation  and  operation  of  registration  authorities  in  the 
ISO  Directives,  the  ISO  Council  has  designated  the  National  Bureau  of  Standards  (Institute  of  Computer  Sciences  and  Technology), 
A-266  Technology  Building,  Gaithersburg,  MD  20899,  USA  to  act  as  registration  authority.  Information  concerning  the 
Registration  Authority  and  its  procedures  may  be  obtained  on  request  from  the  National  Bureau  of  Standards  quoting  ISO  8651- 
2:1988,  the  number  of  the  related  International  Standard. 
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4.1  The  Error  Handling  Funclion 

Error  handling  shall  be  carried  out  as  described  in  subclause  4.12  of  ANSI  X3. 124-1985.  The  implemen¬ 
tation  documentation  shall  detail  the  method  for  an  application  program  to  provide  an  ERROR 
E1ANDLING  procedure.  The  default  ERROR  HANDLING  procedure  shall  be  available. 

The  ERROR  HANDLING  and  ERROR  LOGGING  procedures  each  have  a  parameter  “identification 
of  the  GKS  procedure  which  caused  the  error  detection”.  This  is  represented  in  Pascal  as  a  string  parame¬ 
ter.  The  values  of  the  strings  identifying  Pascal  GKS  procedures  are  those  strings  from  the  column  headed 
“Pascal  Name”  in  Tables  2,  3  or  4. 

4.2  Pascal-Specific  GKS  Errors 

Certain  features  of  the  Pascal  language  make  additional  errors  (beyond  the  ones  described  in  ANSI 
X3. 124-1985)  possible.  Specifically,  these  new  errors  are  defined: 

2102  List  element  or  set  member  not  available 

This  error  is  invoked  when  a  value  greater  than  the  size  of  a  list  or  set  was  passed  as  the  requested  start 
element  in  an  inquiry  routine. 
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The  following  sections  contain  the  data  structures  defined  for  the  Pascal  interface  to  GKS.  The  definitions 
are  given  in  alphabetical  order  for  each  of  the  sections:  implementation-defined  constants  and  types,  con¬ 
stants,  enumerated  types,  array  types,  set  types,  and  record  types. 

For  some  of  those  data  types  involving  a  reference  to  pick  input,  the  pick  input  field  is  valid  only  at  cer¬ 
tain  levels  of  GKS. 


5.1  Implementation-Defined  Constants 

These  are  suggested  minimum  values  for  the  required  implementation-defined  constants.  The  implemen¬ 
tation  shall  provide  values  appropriate  for  that  specific  implementation. 


GCDefErrorLog 

GCMaxEscapeln 

GCMaxEscapeOut 

GCMaxGDP 

GCMaxChoicePicks 

GCMaxChoicePrompts 

GCMaxChoiceStrings 

GCMaxDX 

GCMaxDY 

GCMaxFile 

GCMaxInq 

GCMaxItem 

GCMaxMemory 

GCMaxName 

GCMaxPoint 

GCMaxString 


1;  {Default  error  log  identifier} 

10;  {Maximum  number  of  input  data  record  items 

for  generalized  ESCAPE} 

10;  {Maximum  number  of  output  data  record  items 

for  generalized  ESCAPE} 

10;  {Maximum  number  of  data  record  items  for  generalized  GDP} 

10;  {Maximum  number  of  pick  ids  for  choice  data  record} 

10;  {Maximum  number  of  prompts  for  choice  data  record} 

10;  {Maximum  number  of  strings  for  choice  data  record} 

100;  {Maximum  size  of  two  dimensional  arrays  of  colour} 

100;  {indices  used  in  fill  area  and  pattern  representation} 

12;  {Maximum  length  of  strings  representing  file  names} 

10;  {Maximum  number  of  elements  returned  by  an  inquiry} 

10;  {Maximum  number  of  data  record  items 

for  generalized  WRITE  ITEM} 

32767;  {Maximum  number  of  memory  units  allowed} 

32;  {Maximum  length  of  strings  representing  procedure  names} 

128;  {Maximum  number  of  points  in  a  point  array} 

80;  {Maximum  length  of  fixed  length  strings} 


5.2  Implementation-Defined  Types 

These  types  shall  be  fully  defined  or  modified  to  match  the  capabilities  of  the  implementation. 


5.2.1  General  Types 

GTChoiceDataTag 

GTErrorFileName 


GTEscapeDataTag 

=  0..0; 

{Range  of  valid 

GTGDPDataTag 

=  0..0; 

{Range  of  valid 

GTLocatorDataTag 

=  1-5; 

{Range  of  valid 

GTPickDataTag 

-  1 . .  1 ; 

{Range  of  valid 

GTStri  ngDataTag 

-  1..1; 

{Range  of  valid 

GTStrokeDataTag 

=  1..4; 

{Range  of  valid 

GTVal  u  at  orDataT  ag 

=  1..1; 

{Range  of  valid 

1..5;  {Range  of  valid  Choice  prompt  and  echo  types} 
INTEGER;  {Implementation-defined  type  for  defining  error  log} 
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5.2.2  Record  Types 


The  fields  of  registered  data  records  are  defined  in  the  ISO  International  Register  of  Graphical  Items 
which  is  maintained  by  the  Registration  Authority.  The  form  of  these  data  records  is  described  in  3.6. 
GRFileData  is  not  a  registered  data  record. 


GRChoiceData 


=  record 

case  Prompt 
1 
2 


GTChoiceDataTag  of 
(  );{Implementation-defined} 


(R0002NumAlternatives 
R(X)02AltPrompts 

3  :  (R0003NumStrings 

R0003ChoiceStrings 

4  :  (R0004NumStrings 

R0004ChoiceStri  ngs 

5  :  (R0005Segment 

R0005NumChoices 
R0005PickIds 

{Implementation-defined  record  for  initialising  choice  input} 
end; 


GTMaxChoicePrompt; 

GAPrompt); 

GTMaxChoiceStrings; 

GAStringList); 

GTMaxChoiceStrings; 

GAStringList); 

GTSeg; 

GTMaxChoicePicks; 

GAPickld); 


GREscapeDataln  =  record 

case  Escapeld  :  GTEscapeDataTag  of 

0  :  ();  {The  value  0  will  never  be  used} 

{Implementation-defined  record  for  use  with  the  Escape  function} 
end; 

GREscapeDataOut  —  record 

case  Escapeld  :  GTEscapeDataTag  of 

0  :  (  );  {The  value  0  will  never  be  used} 

{Implementation-defined  record  for  use  with  the  Escape  function} 
end; 

GRFileData  =  record 

Dummy  :  BOOLEAN;  {Replace  with  data  record} 

{Implementation-defined  record  for  use  with  the  Metafile  functions} 
end; 

GRGDPData  =  record 

case  GDPId  :  GTGDPDataTag  of 

0  :  ();  {The  value  0  will  never  be  used} 

{Implementation-defined  record  for  use  with  GDP  function} 
end; 
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GRLocatorData 


GRPickData 


GRStringData 


GRStrokeData 


record 

case  Prompt 
1 
2 

3 

4 


GTLocatorDataTag  of 
(  );{Implementation-defined} 
(  );{Implementation-defined} 
(  );{Implementation-defined} 


GEAttrControl; 
GRLineAttr); 
GEAttrControl; 
GELineFillControl  of 


( R0004L  AttrControl 
R0004Line  Attributes 
5  :  (R0005R AttrControl 

case  LineFillControl 
GVLineControl 
(R0005Rect Attributes:  GRLineAttr); 
GVEillControl 
(R0005FillAttributes  :  GRFillAttr)); 
{Implementation-defined  record  for  initialising  locator  input} 
end; 

record 

case  Prompt  :  GTPickDataTag  of 

1  :  (  );{Implementation-defined} 

{Implementation-defined  record  for  initialising  pick  input} 
end; 

record 

case  Prompt  :  GTStringDataTag  of 

1  :  (  );{Implementation-defined} 

{Implementation-defined  record  for  initialising  string  input} 
end; 


record 
InitialPos 
XInterval, 
YInterval, 
Timelnterval 
case  Prompt 
1 
2 
3 


GTIntl; 


REAL; 

GTStrokeDataTag  of 
(  );{Implementation-defined} 
(  );{Implementation-defined} 
(R0003MAttrControl 
R0003MarkerAttributes 
(R0004LAttrControl 
R0004Line  Attributes 


GEAttrControl; 

GRMarkerAttr); 

GEAttrControl; 

GRLineAttr); 


{Implementation-defined  record  for  initialising  stroke  input} 


end; 


GRValuatorData 


record 

case  Prompt  :  GTValuatorDataTag  of 

1  :  (  );{Implementation-defined} 

{Implementation-defined  record  for  initialising  valuator  input} 
end; 
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GCCircleMarker 

— 

4; 

GCCrossMarker 

— 

5; 

GCDashDotLine 

— 

4; 

GCDashedLine 

— 

2; 

GCDefMemory 

= 

-l; 

GCDotMarker 

— 

l; 

GCDottedLine 

— 

3; 

GCPlusMarker 

- 

2; 

GCSolidLine 

— 

l; 

GCStarMarker 

- 

3; 

5.4  General  Types 

GTInqSize 

- 

l..GCMaxInq; 

GTIntO 

= 

0..MAXINT; 

GTIntl 

— 

1..MAXINT; 

GTInt2 

— 

2..MAXINT; 

GTInt3 

— 

3..MAXINT; 

GTMaxChoicePicks 

= 

1 . .  GCMaxChoicePicks; 

GTMaxChoicePrompts 

= 

1 . .  GCMaxChoicePrompts; 

GTMaxChoiceStrings 

= 

T.GCMaxChoiceStrings; 

GTMaxDX 

— 

L.GCMaxDX; 

GTMaxDY 

= 

E.GCMaxDY; 

GTMaxEscapeln 

- 

1 . .  GCMaxEscapeln ; 

GTMaxEscapeOut 

- 

L.GCMaxEscapeOut; 

GTMaxGDP 

— 

T.GCMaxGDP; 

GTMaxItem 

— 

T.GCMaxItem; 

GTMaxPointO 

— 

O..GCMaxPoint; 

GTMaxPointl 

— 

l..GCMaxPoint; 

GTMaxPoint2 

= 

2..GCMaxPoint; 

GTMaxPoint3 

= 

3..GCMaxPoint; 

GTMaxString 

- 

l..GCMaxString; 

GTMemory 

— 

GCDefMemory.  .GCMaxMemory; 

5.5  Names  Used  by  GKS 

GTEscapeld 

— 

INTEGER; 

GTGDPId 

— 

INTEGER; 

GTPickld 

— 

INTEGER; 

GTSeg 

— 

INTEGER; 

GTWsType 

- 

INTEGER; 

GTWsId 

= 

INTEGER; 

5.6  GKS  Enumerated  Types 

GEASF 

— 

(GVBundled.GVIndividual); 

GEAttrControl 

= 

(GVCurrent,GVSpecified); 

GEClip 

— 

(GVClip,GVNoClip); 

GEControl 

= 

(GVConditionally,GV  Always); 

GECoordSwitch 

— 

(GVwc,GVndc); 

GEDefer 

— 

(GVasap,GVbnig,GVbnil,GVasti); 

Required  Constants 
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GEDet 

GEDeviceUnits 

GEDisplay 

GEDynMod 

GEEcho 

GEEventClass 

GEEvents 

GEHighlight  - 

GEHorizontal  = 

GEImplicitRegen  = 

GEInputClass  - 

GEInputStatus  = 

GEInterior  = 

GEInvPixel  = 

GELevel  = 


GELineFillContro! 

GEMode 

GENfan 

GEOpSt 

GEPath 

GEPrec 

GEPrim 

GEPrimAttr 


GEPriority 

GEPrompt 

GEReqStatus 

GERetum 

GESegAttr 


GESurface 

GEUpdRegen 

GEVertical 


Pascal  GKS  Data  Structures 


(GVUndetectable,GVDetectable); 

(GVMetres,GVOtherUnits); 

(GVColour,GVMonochrome); 

(GVirg,GVimm); 

(GVEcho,GVNoEcho); 

(GVNone,GVLocator,GVStroke,GVValuator, 

GVChoice,GVPick,GVString); 

(GVNoMore,GVMore); 

(G  VNormal  ,G  VHighlighted) ; 

(G  VHnormal  ,G  VHleft  ,G  VHcentre  ,G  VHright) ; 

(GVSuppressed,GVAllowed); 

G  VLocator . .  GVString; 

GVStatusOk.  .GVNoInput; 

(GVHollow,GVSolid,GVPattern,GVHatch); 

(GVAbsent,GVPresent); 

(GVLma,GVLmb,GVLmc, 

G  VLOa ,  G  VLOb ,  G  VLOc , 

GVLla,GVLlb,GVLlc, 

GVL2a,G  VL2b,G  VL2c) ; 

(GVLineControl,GVFillControl); 

(GVRequest,GVSample,GVEvent); 

(GVNfanNo,GVNfanYes); 

(G  Vgkcl ,  G  Vgkop ,  G  Vwsop ,  G  V  wsac ,  G  Vsgop) ; 

(GVRight,GVLeft,GVUp,GVDown); 

( G  VStri  ngPrec ,  G  V  CharPrec ,  G  VStrokePrec) ; 

(GVPolyline,GVPolymarker,GVText,GVFillArea); 

(GVLineType,GVLineWidth,GVLineColr, 

GVMarkerType,GVMarkerSize,GVMarkerColr, 

GVFontPrec,GVExpan,GVSpacing,GVTextColr, 

GVFillInterior,GVFillStyleInd,GVFillColr); 

(GVHigher,GVLower); 

(GVOff,GVOn); 

(GVStatusOk,  GVNoInput, GVStatusNone); 

(GVSet,GVRealised); 

(GVTran,GVToInvis,GVToVis, 

GVHighlight,GVPriority, 

GVAdd,GVRemove); 

(G  VEnipty  ,G  VNotEmpty) ; 

(GVPerform,GVPostpone); 

(GVVnormal,GVVtop,GVVcap,GVVhalf,GVVbase,GVVbottom); 
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GEVis 

=  (GVVisible,GVInvisible); 

GEWsCategory 

GEWsClass 

GEWsSt 

GEWsTran 

-  (GVOutput,GVInput,GVOutIn,GVWISS,GVMO,GVMI); 

=  (GVVector,GVRaster,GVOther); 

=  (GVInactive.GV  Active); 

=  (GVNotPending.GVPending); 

5.7  Array  Types 

GAASF 

=  array[GEPrimAttr]  of  GEASF; 

GAColrArray 

GAColrlnqArray 

GAConnld 

=  array[GTMaxDX,GTMaxDY]  of  GTIntO; 

-  array[ GTMaxDX , GTMaxD Y ]  of  INTEGER; 

=  packed  array[l..GCMaxFile]  of  CHAR; 

GAEscapelnlnt 

GAEscapelnReal 

GAEscapelnString 

GAEscapeOutlnt 

GAEscapeOutReal 

GAEscapeOutString 

—  array[GTMaxEscapeIn]  of  INTEGER; 

—  array[GTMaxEscapeIn]  of  REAL; 

=  array[GTMaxEscapeIn]  of  GRString; 

=  arrayfGTMaxEscapeOut]  of  INTEGER; 

—  arrayfGTMaxEscapeOut]  of  REAL; 

=  arrayfGTMaxEscapeOut]  of  GRString; 

GAFontPrec 

=  arrayfGTInqSize]  of  GRFontPrec; 

GAGDP 

GAGDPInt 

GAGDPReal 

GAGDPString 

=  arrayfGTInqSize]  of  GTGDPId; 

=  arrayfGTMaxGDP]  of  INTEGER; 

=  arrayfGTMaxGDP]  of  REAL; 

=  arrayfGTMaxGDP]  of  GRString; 

GAInputClass 

GAInt 

GAItemlnt 

GAItemReal 

GAItemString 

=  arrayfGEInputClass]  of  INTEGER; 

=  arrayfGTInqSize]  of  INTEGER; 

=  arrayfGTMaxItem]  of  INTEGER; 

=  arrayfGTMaxItem]  of  REAL; 

=  arrayfGTMaxItem]  of  GRString; 

GAMatrix 

-  array[1..2,1..3]  of  REAL; 

GAPickld 

GAPointArray 

GAPrim 

GAPrimRep 

GAProcName 

GAPrompt 

=  arrayfGTMaxChoicePicks]  of  GTPickld; 

=  arrayf GTMaxPointl]  °f  GRPoint; 

=  array[GEPrim]  of  INTEGER; 

=  arrayfGEPrim]  of  GRPrimRep; 

-  packed  arrayf L.GCMaxName]  of  CHAR; 

=  arrayf GTMaxChoicePrompts]  of  GEPrompt; 

GASeg 

GASegMod 

GAString 

GAStringList 

-  arrayfGTInqSize]  of  GTSeg; 

=  array[GESegAttr]  of  GEDynMod; 

-  packed  arrayfGTMaxString]  of  CHAR; 

-  arrayf GTMaxChoiceStrings]  of  GRString; 

GATextExtent 

=  arrayf L. 4]  of  GRPoint; 

GAWsId 

=  arrayfGTInqSize]  of  GTWsId; 

GAWsType  =  array[GTInqSize]  of  GTWsType; 
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GSInterior 

GSPrim 

5.9  Record  Types 
GRAlign 


GRBound 


GRChoice 


GRColr 


GRDefChoiceData 


GRDeferUpd 


G  RDefLocatorData 


=  SET  of  GEInterior; 
=  SET  of  GEPrim; 


-  record 

Horizontal 

Vertical 

end; 

-  record 

LeftBound, 

RightBound, 

LowerBound, 

UpperBound 

end; 

-  record 

ChoiceStatus 

ChoiceNum 

end; 

=  record 
Red, 

Green, 

Blue 

end; 

-  record 

MaxChoice 

NumPrompt 

PromptList 

Area 

Data 

end; 

-  record 

Defer 

ImplicitRegen 

Surface 

Nfan 

end; 

=  record 

InitialPosition 

NumPrompt 

PromptList 

Area 

Data 

end; 


:  GEHorizontal; 
:  GEVertical 


:  REAL 


:  GEInputStatus; 
:  GTIntl 


:  REAL 


GTIntl; 

GTIntl; 

GAInt; 

GRBound; 

GRChoiceData 


GEDefer; 

GEImplicitRegen; 

GESurface; 

GENfan 


GRPoint; 

GTIntl; 

GAInt; 

GRBound; 

GRLocatorData 


Pascal  GKS  Data  Structures 
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GRDefPickData 


GRDefStrokeData 


GRDisplaySize 


=  record 

NumPrompt 

PromptList 

Area 

Data 

end; 


-  record 

MaxSize 

NumPrompt 

PromptList 

Area 

StrokeBufSize 

Data 

end; 


=  record 

De  viceUnits 
DcSize 
RasterSize 
end; 


GTIntl; 

GAInt; 

GRBound; 

GRPickData 


:  GTIntl; 

:  GTIntl; 

:  GAInt; 

:  GRBound; 

:  GTIntl; 

:  GRStringData 


GTIntl; 

GTIntl; 

GAInt; 

GRBound; 

GTIntl; 

GRStrokeData 


:  REAL; 

:  GTIntl; 

:  GAInt; 

:  GRBound; 

:  REAL; 

:  GRValuatorData 


:  GEDeviceUnits; 
:  GRVector; 

:  GRIntVector 


GRDefStringData 


=  record 

MaxSize 

NumPrompt 

PromptList 

Area 

StringBufSize, 

InitialPosition 

Data 

end; 


GRDefValuatorData  =  record 

InitialValue 

NumPrompt 

PromptList 

Area 

LowValue, 

HighValue 

Data 


GRDynModWsAttr  =  record 

LineBundleMod, 

MarkerBundleMod, 

TextBundleMod, 

FillBundleMod, 

PatternMod, 

Coir  Mod, 

WsTranMod  :  GEDynMod 


Record  Types 
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GRFillAttr  =  record 

InteriorASF, 


StyleASF, 

ColourASF 

Filllndex 

FillBundle 

end; 

GEASF; 

GTIntl; 

GRFillRep 

GRFillFacil 

—  record 

NumTypes 

Styles 

NumHatch 

Hatches 

NumPredlnd 

end; 

GTIntl; 

GSInterior; 

GTIntO; 

GAInt; 

GTIntO 

GRFillRep 

=  record 

Interior 

Stylelnd 

FColr 

end; 

GEInterior; 

INTEGER; 

GTIntO 

GRFontPrec 

—  record 

Font 

Prec 

end; 

INTEGER; 

GEPrec 

GRIntVector 

-  record 

xValue, 

yValue 

end; 

INTEGER 

GRLineAttr 

-  record 

TypeASF, 

WidthASF, 

ColourASF 

Linelndex 

LineBundle 

end; 

GEASF; 

GTIntl; 

GRLineRep 

GRLineFacil 

=  record 

NumTypes 

Lines 

NumWidths 

Nominal  Width, 
MinWidth, 

MaxWidth 

NumPredlnd 

GTIntl; 

GAInt; 

GTIntO; 

REAL; 

GTIntO 

end; 


Pascal  GKS  Data  Structures 
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GRLineRep  =  record 


LType 

:  INTEGER; 

Width 

:  REAL; 

LColr 

end; 

:  GTIntO 

GRLocator 

=  record 

NormTranLocator 

:  GTIntO; 

Position 

end; 

GRPoint 

GRMarkerAttr 

—  record 

TypeASF, 

SizeASF, 

ColourASF 

GEASF; 

Markerlndex 

GTIntl; 

MarkerBundle 

end; 

GRMarkerRep 

GRMarkerFacil 

=  record 

NumTypes 

GTIntl; 

Markers 

GAInt; 

NumSizes 

NominalSize, 

MinSize, 

GTIntO; 

MaxSize 

REAL; 

NumPredlnd 

end; 

GTIntO 

GRMarkerRep 

=  record 

MType 

INTEGER; 

Size 

REAL; 

MColr 

end; 

GTIntO 

GRPick 

=  record 

PickStatus 

GEInputStatus; 

Segment 

GTSeg; 

Pickld 

end; 

GTPickld 

GRPoint 

-  record 

y  •• 

REAL 

end; 
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GRPrimAttr 


GRPrimRep 


GRSegAttr 


GRString 


GRStroke 


=  record 


Polylinelnd 

:  GTIntl; 

Polymarkerlnd 

:  GTIntl; 

Textlnd 

:  GTIntl; 

Text 

:  GRText; 

Filllnd 

:  GTIntl; 

PatternWidth, 

PatternHeight 

:  GRVector; 

PattemRefPoint 

:  GRPoint 

end; 

record 

case  Prim 

GEPrim  of 

GVPolyline 

(LType 

INTEGER; 

Width 

REAL; 

LColr 

GTIntO); 

GVPolymarker 

(MType 

INTEGER; 

Size 

REAL; 

MColr 

GTIntO); 

GVText 

(FontPrec 

Expan , 

GRFontPrec; 

Spacing 

REAL; 

TColr 

GTIntO); 

GVFillArea 

(Interior 

GEInterior; 

Stylelnd 

INTEGER; 

FColr 

GTIntO) 

end; 

record 

SegTran 

:  GAMatrix; 

Vis 

:  GEVis; 

Highlight 

:  GEHighlight; 

Priority 

:  REAL; 

Dct 

:  GEDet 

end; 

record 

StringLength 

:  GTIntO; 

CharString 

:  GAString 

end; 

record 

N  ormTra  n  St  r  oke 

:  GTIntO; 

Num 

:  GTIntO; 

Points 

:  GAPointArray 

end; 
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GRText 

-  record 

Height 

REAL; 

UpVector 

GRVector; 

Width 

REAL; 

Base  Vector 

GRVector; 

Path 

GEPath; 

Align 

end; 

GRAlign 

GRTextFacil 

—  record 

NumTypes 

GTIntl; 

FontPrecs 

GAFontPrec; 

NumHeights 

MinHeight, 

GTIntO; 

MaxHeight 

REAL; 

NumExpan 

MinExpan, 

GTIntO; 

MaxExpan 

REAL; 

NumPredlnd 

end; 

GTIntO 

GRTextRep 

-  record 

FontPrec 

Expan, 

GRFontPrec; 

Spacing 

REAL; 

TColr 

end; 

GTIntO 

GRVector 

—  record 

xValue, 

yValue 

end; 

REAL 

GRWsMaxNum 

=  record 

MaxOpenWs 

GTIntl; 

MaxActiveWs 

GTIntl; 

MaxWsSeg 

end; 

GTIntl 
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6.1  Notational  Conventions 

The  GKS  abstract  function  names  are  given  followed  by  the  corresponding  Pascal  procedure  and  associ¬ 
ated  parameters.  The  GKS  Level  is  shown  for  each  function. 

6.2  Control  Functions 

OPEN  GKS  Lma 

procedure  GOpenGKS( 

ErrorFile  :  GTErrorFileName; 

MemoryUnits  :  GTMemory 

); 


CLOSE  GKS  Lma 

procedure  GCloseGKS; 


OPEN  WORKSTATION 

procedure  GOpenWs( 

Wsld  :  GTWsId; 

Connld  :  GAConnld; 

WsType  :  GTWsType 

); 


Lma 


CLOSE  WORKSTATION  Lma 

procedure  GCloseWs( 

Wsld  :  GTWsId 

); 


ACTIVATE  WORKSTATION 

procedure  GActivateWs( 

Wsld  :  GTWsId 

); 


DEACTIVATE  WORKSTATION 

procedure  GDeactivateWs( 

Wsld  :  GTWsId 

); 
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CLEAR  WORKSTATION  Lma 


procedure  GClearWs( 

Wsld 

Control  Flag 

:  GTWsId; 

:  GEControl 

REDRAW  ALL  SEGMENTS  ON  WORKSTATION  Lla 

procedure  GRedrawSegWs( 


Wsld 

); 

GTWsId 

UPDATE  WORKSTATION 

procedure  GUpdWs( 

Wsld 

RegenFlag 

); 

Lma 

GTWsId; 

GEUpdRegen 

SET  DEFERRAL  STATE 

procedure  GSetDeferSt( 

Wsld 

DeferMode 

RegenMode 

); 

Lla 

GTWsId; 

GEDefer; 

GEImplicitRegen 

MESSAGE 

procedure  GMessage( 

Wsld 

StringLength 

Message 

Lla 

GTWsId; 

GTMaxString; 

GAString 
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ESCAPE 


Lma 


procedure  GEscape( 


Escape Id 

VAR  InputDataRec 
VAR  OutputDataRec 
); 


GTEscapeld; 

GREscapeDataln; 

GREscapeDataOut 


Although  the  input  data  record  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of 
the  data  record. 

Escape  identifiers  and  parameters  are  reserved  for  registration  in  the  ISO  International  Register  of 
Graphical  Items  which  is  maintained  by  the  Registration  Authority. 

The  following  general  form  of  ESCAPE  is  defined  to  allow  an  application  to  use  the  ESCAPE  function 
for  escape  identifiers  which  do  not  have  data  records  defined  in  GREscapeDataln  and 
GREscapeDataOut.  The  sequence  of  data  in  each  array  is  defined  in  the  Register  of  Graphical  Items 
and,  for  each  ESCAPE  identifier  in  the  Register,  uses  the  method  defined  for  the  FORTRAN  binding. 

procedure  GEscapeGeneralized( 


Escapeld 

Numlntln 
VAR  IntDataln 
NumRealln 
VAR  RealDataln 
NumStringln 
VAR  StringDataln 
VAR  NumlntOut 
VAR  IntDataOut 
VAR  NumRealOut 
VAR  RealDataOut 
VAR  NumStringOut 
VAR  StringDataOut 
); 


GTEscapeld; 

GTIntO; 

GAEscapelnlnt; 

GTIntO; 

G  AEscapelnReal ; 
GTIntO; 

GAEscapelnString 

GTIntO; 

GAEscapeOutlnt; 

GTIntO; 

G  AEscapeOutReal ; 
GTIntO; 

GAEscapeOutString 


The  value  of  the  parameter  Numlntln  shall  specify  the  number  of  integers  in  the  array  IntDataln.  The 
value  of  the  parameter  NumRealln  shall  specify  the  number  of  reals  in  the  array  RealDataln.  The  value 
of  the  parameter  NumStringln  shall  specify  the  number  of  strings  in  the  array  StringDataln,  Although 
the  arrays  are  variable  parameters,  the  implementation  shall  not  change  the  value  of  the  arrays. 
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6.3  Output  Functions 

POLYLINE 

procedure  GPolyline( 

NumPoints  :  GTMaxPoint2; 

VAR  Points  :  GAPointArray 

); 


Lma 


The  value  of  the  parameter  NumPoints  shall  specify  the  number  of  points  in  the  array.  Although  the 
array  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the  array. 

POLYMARKER  Lma 

procedure  GPolymarker( 

NumPoints  :  GTMaxPointl; 

VAR  Points  :  GAPointArray 

); 


The  value  of  the  parameter  NumPoints  shall  specify  the  number  of  points  in  the  array.  Although  the 
array  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the  array. 


TEXT 

procedure  GText( 

TextPosition 

StringLength 

CharString 

); 


GRPoint; 

GTMaxString; 

GAString 


Lma 


FILL  AREA 

procedure  GFilI( 

NumPoints  :  GTMaxPoint3; 

VAR  Points  :  GAPointArray 

); 


Lma 


The  value  of  the  parameter  NumPoints  shall  specify  the  number  of  points  in  the  array.  Although  the 
array  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the  array. 
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CELL  ARRAY 

procedure  GCellArray( 

PointP, 

PointQ 

Dx 

Dy 

VAR  Colrlnds 

); 


GRPoint; 
GTMaxDX; 
GTMaxDY ; 
GAColrArray 


LOa 


Although  the  array  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the  array. 


GENERALIZED  DRAWING  PRIMITIVE  (GDP) 


procedure  GGDP( 

NumPoints 
VAR  Points 
GDPId 

VAR  DataRec 

); 


GTMaxPointO; 

GAPointArray; 

GTGDPId; 

GRGDPData 


LOa 


The  value  of  the  parameter  NumPoints  shall  specify  the  number  of  points  in  the  array  Points.  Although 
the  array  and  data  record  are  variable  parameters,  the  implementation  shall  not  change  the  value  of  the 
array  or  data  record. 

GDP  identifiers  and  parameters  are  reserved  for  registration  in  the  ISO  International  Register  of 
Graphical  Items  which  is  maintained  by  the  Registration  Authority. 

The  following  general  form  of  GDP  is  defined  to  allow  an  application  to  use  the  GDP  function  for  GDP 
identifiers  which  do  not  have  data  records  defined  in  GRGDPData.  The  sequence  of  data  in  each  array 
is  defined  in  the  Register  of  Graphical  Items  and,  for  each  GDP  identifier  in  the  Register,  uses  the 
method  defined  for  the  FORTRAN  binding. 

procedure  GGDPGeneralized( 


NumPoints 

GTMaxPointO; 

VAR  Points 

GAPointArray; 

GDPId 

GTGDPId; 

Numlnt 

GTIntO; 

VAR  IntData 

GAGDPInt; 

NumReal 

GTIntO; 

VAR  RealData 

GAGDPReal; 

NumString 

GTIntO; 

VAR  StringData 

GAGDPString 

); 


The  value  of  the  parameter  NumPoints  shall  specify  the  number  of  points  in  the  array  Points.  The  value 
of  the  parameter  Numlnt  shall  specify  the  number  of  integers  in  the  array  IntData.  The  value  of  the 
parameter  NumReal  shall  specify  the  number  of  reals  in  the  array  RealData.  The  value  of  the  parameter 
NumString  shall  specify  the  number  of  strings  in  the  array  StringData.  Although  the  arrays  are  variable 
parameters,  the  implementation  shall  not  change  the  value  of  the  arrays. 
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6.4  Output  Attributes 

6.4.1  Workstation-Independent  Primitive  Attributes 

SET  POLYLINE  INDEX 

procedure  GSetPolylineInd( 

Ind  :  GTIntl 

); 

This  procedure  is  a  specific  form  of 
SET  <Primitive>  INDEX 

SET  LINETYPE 

procedure  GSetLineType( 

LineType  :  INTEGER 

); 

SET  LINEWIDTH  SCALE  FACTOR 

procedure  GSetLineWidthScale( 

I  LineWidthScale  :  REAL 

1  ); 

SET  POLYLINE  COLOUR  INDEX 

procedure  GSetLineColrInd( 

LineColrlnd  :  GTIntO 

); 

SET  POLYMARKER  INDEX 

procedure  GSetPolymarkerInd( 

Ind  :  GTIntl 

); 

This  procedure  is  a  specific  form  of 
SET  <Primitive>  INDEX 

SET  MARKER  TYPE 

procedure  GSetMarkerType( 

MarkerType  :  INTEGER 


STANDARD  X3. 124.2-1988 
Output  Attributes 

LOa 


Lma 

LOa 

Lma 

LOa 


Lma 
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SET  MARKER  SIZE  SCALE  FACTOR  I  Oa 

procedure  GSetMarkerSizeScale( 

MarkerSizeScale  :  REAL 

); 


SET  POLYMARKER  COLOUR  INDEX  Lina 

procedure  GSetMarkerColrInd( 

MarkerColrlnd  :  GTIntO 

); 


SET  TEXT  INDEX  LOa 

procedure  GSetTextInd( 

Ind  :  GTIntl 

); 


This  procedure  is  a  specific  form  of 
SET  <Primitive>  INDEX 

SET  TEXT  FONT  AND  PRECISION  LOa 

procedure  GSetTextFontPrec( 

TextFontPrec  :  GRFontPrec 

); 


SET  CHARACTER  EXPANSION  FACTOR  LOa 

procedure  GSetCharExpan( 

CharExpan  :  REAL 

); 


SET  CHARACTER  SPACING  LOa 

procedure  GSetCharSpacing( 

CharSpacing  :  REAL 

); 


SET  TEXT  COLOUR  INDEX  Lma 

procedure  GSetTextColrInd( 

TextColrlnd  :  GTIntO 

); 
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SET  CHARACTER  HEIGHT  Lina 

procedure  GSetCharHeight( 

CharHeight  :  REAL 

); 


SET  CHARACTER  UP  VECTOR 
procedure  GSetCharUpVector( 

CharUpVector  :  GRVector 

); 

SET  TEXT  PATH 

procedure  GSetTextPath( 

TextPath  :  GEPath 

); 

SET  TEXT  ALIGNMENT 
procedure  GSetTextAlign( 

TextAlign  :  GRAlign 

); 


SET  FILL  AREA  INDEX 

procedure  GSetFillInd( 

Ind  :  GTIntl 

); 

This  procedure  is  a  specific  form  of 
SET  <  Primitive >  INDEX 

SET  FILL  AREA  INTERIOR  STYLE 

procedure  GSetFillIntStyle( 

FilllntStyle  :  GEInterior 

); 


Lma 


LOa 


Lma 


LOa 


Lma 


SET  FILL  AREA  STYLE  INDEX  LOa 

procedure  GSetFillStyleInd( 

FillStylelnd  :  INTEGER 

); 
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SET  FILL  AREA  COLOUR  INDEX  Lma 

procedure  GSetFiIlColrInd( 

FillColrlnd  :  GTIntO 

); 


SET  PATTERN  SIZE  LOa 

procedure  GSetPattemSize( 

PattemSize  :  GRVector 

); 


SET  PATTERN  REFERENCE  POINT  LOa 

procedure  GSetPatternRefPoint( 

RefPoint  :  GRPoint 

); 


SET  ASPECT  SOURCE  FLAGS  LOa 

procedure  GSetASF( 

ListASF  :  GAASF 

); 


SET  PICK  IDENTIFIER  Lib 

procedure  GSetPickId( 

Pickld  :  GTPickld 

); 


6.4.2  Workstation  Attributes  (Representations) 

SET  POLYLINE  REPRESENTATION  Lla 

procedure  GSetPolylineRep( 

Wsld  :  GTWsId; 

ind  :  GTIntl; 

Rep  :  GRLineRep 

); 

I  bis  procedure  is  a  specific  form  of 

SET  <Primitive>  REPRESENTATION 
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SET  POLYMARKER  REPRESENTATION  Lla 

procedure  GSetPolymarkerRep( 

Wsld  :  GTWsId; 

Ind  :  GTIntl; 

Rep  :  GRMarkerRep 

); 


This  procedure  is  a  specific  form  of 

SET  <Primitive>  REPRESENTATION 


SET  TEXT  REPRESENTATION  Lla 

procedure  GSetTextRep( 

Wsld  :  GTWsId; 

Ind  :  GTIntl; 

Rep  :  GRTextRep 

); 


This  procedure  is  a  specific  form  of 

SET  <Primitive>  REPRESENTATION 


SET  FILL  AREA  REPRESENTATION  Lla 

procedure  GSetFillRep( 

Wsld  :  GTWsId; 

Ind  :  GTIntl; 

Rep  :  GRFillRep 

); 


This  procedure  is  a  specific  form  of 

SET  <  Primitive >  REPRESENTATION 


SET  PATTERN  REPRESENTATION  Lla 

procedure  GSetPatternRep( 

Wsld 
Ind 
Dx 
Dy 

VAR  PattemArray 

); 

Although  the  array  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the  array. 


GTWsId; 

GTIntl; 

GTMaxDX; 

GTMaxDY; 

GAColrArray 
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SET  COLOUR  REPRESENTATION  Lma 

procedure  GSetColrRep( 

Wsld  :  GTWsId; 

Colrlnd  :  GTIntO; 

Coir  :  GRColr 

); 


6.5  Transformation  Functions 
6.5.1  Normalization  Transformation 


SET  WINDOW 


procedure  GSetWindow( 

TranNum 

:  GTIntl; 

WindowLimits 

:  GRBound 

); 


SET  VIEWPORT 

procedure  GSetViewport( 

TranNum 

:  GTIntl; 

ViewportLimits 

:  GRBound 

); 


Lma 


Lma 


SET  VIEWPORT  INPUT  PRIORITY  Lmb 

procedure  GSetViewportPriority( 

TranNum, 

RefTranNum  :  GTIntO; 

RelativePriority  :  GEPriority 

); 


SELECT  NORMALIZATION  TRANSFORMATION  Lma 

procedure  GSelectNormTran( 

NormTranNum  :  GTIntO 

); 

SET  CLIPPING  INDICATOR  Lma 

procedure  GSetClip( 

Clip  :  GEClip 

); 
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6.5.2  Workstation  Transformation 

SET  WORKSTATION  WINDOW  Lma 

procedure  GSetWsWindow( 

Wsld  :  GTWsId; 

WsWindowLimits  :  GRBound 

); 


SET  WORKSTATION  VIEWPORT  Lma 

procedure  GSetWsViewport( 

Wsld  :  GTWsId; 

WsViewportLimits  :  GRBound 

); 


6.6  Segment  Functions 

6.6.1  Segment  Manipulation  Functions 


CREATE  SEGMENT 

procedure  GCreateSeg( 

SegName  :  GTSeg 

); 


CLOSE  SEGMENT 

procedure  GCloseSeg; 


RENAME  SEGMENT 

procedure  GRenameSeg( 

OldSegName, 

NewSegName  :  GTSeg 

); 


DELETE  SEGMENT 
procedure  GDelSeg( 

SegName  :  GTSeg 

); 


Lla 


Lla 


Lla 


Lla 
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DELETE  SEGMENT  FROM  WORKSTATION  Lla 

procedure  GDelSegWs( 

Wsld  :  GTWsId; 

SegName  :  GTSeg 

); 


ASSOCIATE  SEGMENT  WITH  WORKSTATION  L2a 

procedure  GAssocSegWs( 

Wsld  :  GTWsId; 

SegName  :  GTSeg 

); 


COPY  SEGMENT  TO  WORKSTATION  L2a 

procedure  GCopySegWs( 

Wsld  :  GTWsId; 

SegName  :  GTSeg 

); 


INSERT  SEGMENT 

procedure  GInsertSeg( 

SegName  :  GTSeg; 

TranMatrix  :  GAMatrix 

); 


L2a 


6.6.2  Segment  Attributes 

SET  SEGMENT  TRANSFORMATION  Lla 

procedure  GSetSegTran( 

SegName  :  GTSeg; 

TranMatrix  :  GAMatrix 

); 


SET  VISIBILITY 

procedure  GSetVis( 

SegName  :  GTSeg; 

Vis  :  GEVis 

); 


Lla 
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SET  HIGHLIGHTING  Lla 


procedure  GSetHighlight( 

SegName 

Highlight 

); 

:  GTSeg; 

:  GEHighlight 

SET  SEGMENT  PRIORITY 

procedure  GSetSegPriority( 

SegName 

SegPriority 

); 

Lla 

:  GTSeg; 

:  REAL 

SET  DETECTABILITY 

procedure  GSetDet( 

SegName 

SegDet 

); 

Lib 

:  GTSeg; 

:  GEDet 

6.7  Input  Functions 

6.7.1  Initialisation  of  Input  Devices 

INITIALISE  LOCATOR  Lmb 


procedure  GInitLocator( 

Wsld 

LocDeviceNum 

InitialLocator 

PromptEcho 

EchoArea 

VAR  LocatorDataRec 

GTWsId; 

GTIntl; 

GRLocator; 

INTEGER; 

GRBound; 

GRLocatorData 

This  procedure  is  a  specific  form  of 
INITIALISE  <Input> 

Although  the  data  record  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the 
data  record. 
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INITIALISE  STROKE 

procedure  GInitStroke( 
Wsld 

StrokeDeviceNum 
InitialStroke 
PromptEcho 
EchoArea 
StrokeBufSize 
VAR  StrokeDataRec 
); 


GTWsId; 

GTIntl; 

GRStroke; 

INTEGER; 

GRBound; 

GTIntl; 

GRStrokeData 


Lmb 


I  This  procedure  is  a  specific  form  of 
INITIALISE  <Input> 

Although  the  data  record  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the 
data  record. 


INITIALISE  VALUATOR 
procedure  GInitValuator( 
Wsld 

ValDeviceNum 
InitialValue 
PromptEcho 
EchoArea 
LowValue, 
HighValue 
VAR  ValDataRec 
); 


:  GTWsId; 

:  GTIntl; 

:  REAL; 

:  INTEGER; 

:  GRBound; 

:  REAL; 

:  GRValuatorData 


Lmb 


This  procedure  is  a  specific  form  of 
INITIALISE  <Input> 

Although  the  data  record  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the 
data  record. 
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INITIALISE  CHOICE 
procedure  GInitChoice( 

GTWsId; 
GTIntl; 
GRChoice; 
INTEGER; 
GRBound; 
GRChoice  Data 

); 


Wsld 

ChoiceDeviceNum 
InitialChoice 
PromptEcho 
Echo  Are  a 

VAR  ChoiceDataRec 


Input  Functions 


Lmb 


This  procedure  is  a  specific  form  of 
INITIALISE  <Input> 

Although  the  data  record  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the 
data  record. 


INITIALISE  PICK  Lib 

procedure  GInitPick( 

Wsld  :  GTWsId; 

PickDeviceNum  :  GTIntl; 

InitialPick  :  GRPick; 

PromptEcho  :  INTEGER; 

EchoArea  :  GRBound; 

VAR  PickDataRec  :  GRPickData 

); 


This  procedure  is  a  specific  form  of 
INITIALISE  <  Input > 

Although  the  data  record  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the 
data  record. 
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INITIALISE  STRING 

procedure  GInitString( 
Wsld 

StringDeviceNum 
Initialstring 
PromptEcho 
EchoArea 
StringBufSize 
InitialPosition 
VAR  StringDataRec 
); 


GTWsId; 

GTIntl; 

GRString; 

INTEGER; 

GRBound; 

GTIntl; 

GTIntl; 

GRStringData 


Lmb 


This  procedure  is  a  specific  form  of 
INITIALISE  <Input> 

Although  the  data  record  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the 
data  record. 

6.7.2  Setting  the  Mode  of  Input  Devices 


SET  LOCATOR  MODE  Lmb 

procedure  GSetLocatorMode( 

Wsld  :  GTWsId; 

LocDeviceNum  :  GTIntl; 

OpMode  :  GEMode; 

EchoSwitch  :  GEEcho 

); 


This  procedure  is  a  specific  form  of 
SET  <  Input >  MODE 


SET  STROKE  MODE  Lmb 

procedure  GSetStrokeMode( 

Wsld  :  GTWsId; 

StrokeDeviceNum  :  GTIntl; 

OpMode  :  GEMode; 

EchoSwitch  :  GEEcho 

); 


This  procedure  is  a  specific  form  of 
SET  <Input>  MODE 
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SET  VALUATOR  MODE  Lmb 

procedure  GSetValuatorMode( 

Wsld  :  GTWsId; 

ValDeviceNum  :  GTIntl; 

OpMode  :  GEMode; 

EchoSwitch  :  GEEcho 

); 


This  procedure  is  a  specific  form  of 
SET  <Input>  MODE 


SET  CHOICE  MODE  Lmb 

procedure  GSetChoiceMode( 

Wsld  :  GTWsId; 

Choice DeviceNum  :  GTIntl; 

OpMode  :  GEMode; 

EchoSwitch  :  GEEcho 

); 


This  procedure  is  a  specific  form  of 
SET  <Input>  MODE 


SET  PICK  MODE  Lib 

procedure  GSetPickMode( 

Wsld  :  GTWsId; 

PickDeviceNum  ;  GTIntl; 

OpMode  :  GEMode; 

EchoSwitch  :  GEEcho 

); 


This  procedure  is  a  specific  form  of 
SET  <Input>  MODE 
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SET  STRING  MODE  Lmb 

procedure  GSetStringMode( 

Wsld  :  GTWsId; 

StringDeviceNum  :  GTIntl; 

OpMode  :  GEMode; 

EchoSwitch  :  GEEcho 

); 


This  procedure  is  a  specific  form  of 
SET  <  Input  >  MODE 


6.7.3  Request  Input  Functions 

Lmb 


GTWsId; 
GTIntl; 
GEReqStatus; 
GRLocator 

); 


REQUEST  LOCATOR 

procedure  GReqLocator( 
Wsld 

LocDeviceNum 
VAR  Status 
VAR  LocatorMeasure 


This  procedure  is  a  specific  form  of 
REQUEST  <  Input > 


REQUEST  STROKE  Lmb 

procedure  GReqStroke( 

Wsld  :  GTWsId; 

StrokeDeviceNum  :  GTIntl; 

VAR  Status  :  GEReqStatus; 

VAR  StrokeMeasure  :  GRStroke 

); 


This  procedure  is  a  specific  form  of 
REQUEST  <Input> 


56 


AMERICAN  NATIONAL  STANDARD  X3.124. 2-1988 


GKS  Functions 


REQUEST  VALUATOR 

procedure  GReqValuator( 
Wsld 

ValDeviceNum 
VAR  Status 
VAR  ValueMeasure 
); 


GTWsId; 

GTIntl; 

GEReqStatus; 

REAL 


This  procedure  is  a  specific  form  of 
REQUEST  <Input> 

REQUEST  CHOICE 

procedure  GReqChoice( 

Wsld 

Choice  Device  N  um 
VAR  Status 
VAR  ChoiceMeasure 
); 


GTWsId; 

GTIntl; 

GEReqStatus; 

GRChoice 


This  procedure  is  a  specific  form  of 
REQUEST  <Input> 

The  status  is  returned  in  the  Status  parameter  and  also  in  the  returned  record. 


REQUEST  PICK 

procedure  GReqPick( 
Wsld 

PickDeviceNum 
VAR  Status 
VAR  PickMeasure 
); 


GTWsId; 

GTIntl; 

GEReqStatus; 

GRPick 


This  procedure  is  a  specific  form  of 
REQUEST  <Input> 

The  status  is  returned  in  the  Status  parameter  and  also  in  the  returned  record. 


Input  Functions 

Lmb 


Lmb 


Lib 
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REQUEST  STRING 

procedure  GReqString( 
Wsld 

StringDeviceNum 
VAR  Status 
VAR  StringMeasure 
); 


GTWsId; 

GTIntl; 

GEReqStatus; 

GRString 


Lmb 


This  procedure  is  a  specific  form  of 
REQUEST  <Input> 


6.7.4  Sample  Input  Functions 

SAMPLE  LOCATOR  Line 

procedure  GSamp!eLocator( 

Wsld  :  GTWsId; 

LocDeviceNum  :  GTIntl; 

VAR  LocatorMeasure  :  GRLocator 

); 


This  procedure  is  a  specific  form  of 
SAMPLE  <Input> 

SAMPLE  STROKE 
procedure  GSampIeStroke( 

Wsld  :  GTWsId; 

StrokeDeviceNum  :  GTIntl; 

VAR  StrokeMeasure  :  GRStroke 

); 


This  procedure  is  a  specific  form  of 
SAMPLE  <Input> 

SAMPLE  VALUATOR 
procedure  GSampleValuator( 

Wsld  :  GTWsId; 

ValDeviceNum  :  GTIntl; 

VAR  ValueMeasure  :  REAL 

); 


Lmc 


Line 


This  procedure  is  a  specific  form  of 
SAMPLE  <  Input > 
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SAMPLE  CHOICE 

procedure  GSampleChoice( 

Wsld  :  GTWsId; 

ChoiceDeviceNum  :  GTIntl; 

VAR  ChoiceMeasure  :  GRChoice 

); 

This  procedure  is  a  specific  form  of 
SAMPLE  <Input> 

SAMPLE  PICK 

procedure  GSamplePick( 

Wsld  :  GTWsId; 

PickDeviceNum  :  GTIntl; 

VAR  PickMeasure  :  GRPick 

); 


Lmc 


Lie 


This  procedure  is  a  specific  form  of 
SAMPLE  <Input> 

SAMPLE  STRING 

procedure  GSampleString( 

Wsld  :  GTWsId; 

StringDeviceNum  :  GTIntl; 

VAR  StringMeasure  :  GRString 

); 


Line 


This  procedure  is  a  specific  form  of 
SAMPLE  <Input> 


6.7.5  Event  Input  Functions 


AWAIT  EVENT 

procedure  GAwaitEvent( 

Timeout 
VAR  Wsld 
VAR  Class 

VAR  InputDeviceNum 

); 


REAL; 

GTWsId; 

GEEventClass; 

GTIntl 


Lmc 
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FLUSH  DEVICE  EVENTS 


procedure  GFlushDeviceEvents( 

Wsld  :  GTWsId; 

InputClass  :  GEInputClass; 

InputDeviceNum  :  GTIntl 

); 


Lmc 


GET  LOCATOR  Lmc 

procedure  GGetLocator( 

VAR  LocatorMeasure  :  GRLocator 

); 


This  procedure  is  a  specific  form  of 
GET  <  Input  > 

GET  STROKE  Lmc 

procedure  GGetStroke( 

VAR  StrokeMeasure  :  GRStroke 

); 


This  procedure  is  a  specific  form  of 
GET  <Input> 

GET  VALUATOR  Lmc 

procedure  GGetValuator( 

VAR  ValueMeasure  :  REAL 

); 


This  procedure  is  a  specific  form  of 
GET  <Input> 

GET  CHOICE  Lmc 

procedure  GGetChoice( 

VAR  ChoiceMeasure  :  GRChoice 

); 


This  procedure  is  a  specific  form  of 
GET  <  Input > 
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GET  PICK  Lie 

procedure  GGetPick( 

VAR  PickMeasure  :  GRPick 

); 

This  procedure  is  a  specific  form  of 
GET  <Input> 

GET  STRING  Lmc 

procedure  GGetString( 

VAR  StringMeasure  :  GRString 

); 


This  procedure  is  a  specific  form  of 
GET  <Input> 

6.8  Metafile  Functions 


WRITE  ITEM  TO  GKSM  LOa 

procedure  GWriteItem( 

Wsld  :  GTWsId; 

ItemType  :  INTEGER; 

ItemDataRecLength  :  GTIntO; 

VAR  DataRec  :  GRFileData 

); 


Although  the  data  record  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the 
data  record. 

The  following  general  form  of  WRITE  ITEM  is  defined  to  allow  an  application  to  use  the  WRITE  ITEM 
function  for  application  defined  item  types  which  do  not  have  data  records  defined  in  GRFileData. 


procedure  GWriteItemGeneralized( 


Wsld 
ItemType 
Numlntln 
VAR  IntDataln 
NumRealln 
VAR  RealDataln 
NumStringln 
VAR  StringDataln 
); 


GTWsId; 

INTEGER; 

GTIntO; 

GAItemlnt; 

GTIntO; 

GAItemReal; 

GTIntO; 

GAItemString 


The  value  of  the  parameter  Numlntln  shall  specify  the  number  of  integers  in  the  array  IntDataln.  The 
value  of  the  parameter  NumRealln  shall  specify  the  number  of  reals  in  the  array  RealDataln.  The  value 
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of  the  parameter  NumStringln  shall  specify  the  number  of  strings  in  the  array  StringDataln.  Although 
the  arrays  are  variable  parameters,  the  implementation  shall  not  change  the  value  of  the  arrays. 

GET  ITEM  TYPE  FROM  GKSM  I  Oa 

procedure  GGetItemType( 

Wsld  :  GTWsId; 

VAR  ItemType  :  GTIntO; 

VAR  ItemDataRecLength  :  GTIntO 

); 


Further  information  about  possible  values  of  the  item  type  is  provided  in  Appendix  B. 


READ  ITEM  FROM  GKSM 

procedure  GReadItem( 

Wsld 

MaxDataRecLength 
VAR  DataRec 
); 


GTWsId; 

GTIntO; 

GRFileData 


INTERPRET  ITEM 

procedure  Glnterpretltem( 
ItemType 

ItemDataRecLength 
VAR  DataRec 
); 


INTEGER; 

GTIntO; 

GRFileData 


LOa 


LOa 


Although  the  data  record  is  a  variable  parameter,  the  implementation  shall  not  change  the  value  of  the 
data  record. 


6.9  Inquiry  Functions 

6.9.1  Convention 

Where  a  GKS  abstract  inquiry  function  returns  many  values,  these  are  represented  in  Pascal  as  a  record, 
the  fields  of  which  deliver  the  values  required. 

6.9.2  Inquiry  Function  for  Operating  State  Value 


INQUIRE  OPERATING  STATE  VALUE  LOa 

procedure  GInqOpSt( 

VAR  OpSt  :  GEOpSt 

); 
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6.9.3  Inquiry  Functions  for  GKS  Description  Table 

INQUIRE  LEVEL  OF  GKS 

procedure  GInqLevelGKS( 

VAR  Errorlnd  :  INTEGER; 

VAR  LevelGKS  :  GELevel 

); 


Lma 


INQUIRE  LIST  OF  AVAILABLE  WORKSTATION  TYPES 

procedure  GInqListWsTypes( 

Start  :  GTIntl; 

Size  :  GTInqSize; 

VAR  Done  :  Boolean; 

VAR  Errorlnd  :  INTEGER; 

VAR  NumWsTypes  :  GTIntl; 

VAR  WsTypes  :  GAWsType 

); 

The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  WORKSTATION  MAXIMUM  NUMBERS 
procedure  GInqWsMaxNum( 

VAR  Errorlnd  :  INTEGER; 

VAR  MaxNum  :  GRWsMaxNum 

); 


LOa 


Lla 


INQUIRE  MAXIMUM  NORMALIZATION  TRANSFORMATION  NUMBER  LOa 

procedure  GInqMaxNormTranNum( 

VAR  Errorlnd  :  INTEGER; 

VAR  MaxNormTran  :  GTIntl 

); 
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6.9.4  Inquiry  Functions  for  GKS  State  List 


INQUIRE  SET  OF  OPEN  WORKSTATIONS 


procedure  GInqOpenWs( 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumOpenWs 
VAR  OpenWs 
); 


GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntO; 

GAWsId 


LOa 


The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  SET  OF  ACTIVE  WORKSTATIONS 


procedure  GInqActiveWs( 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumActiveWs 
VAR  ActiveWs 
); 


GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntO; 

GAWsId 


Lla 


The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES  Lma 

procedure  GInqCurPrimAttr( 

VAR  Errorlnd  :  INTEGER; 

VAR  PrimAttr  :  GRPrimAttr 

); 
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INQUIRE  POLYLINE  INDEX 

procedure  GInqLineInd( 

VAR  Errorlnd  :  INTEGER; 

VAR  PolyLinelnd  :  GTIntl 

);  ' 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUl'E  VALUES 

INQUIRE  POLYMARKER  INDEX 

procedure  GInqMarkerInd( 

VAR  Errorlnd  :  INTEGER; 

VAR  PolyMarkerlnd  :  GTIntl 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 

INQUIRE  TEXT  INDEX 

procedure  GInqTextInd( 

VAR  Errorlnd  :  INTEGER; 

VAR  Textlnd  :  GTIntl 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 

INQUIRE  CHARACTER  HEIGHT 

procedure  GInqCharHeight( 

VAR  Errorlnd  :  INTEGER; 

VAR  Height  :  REAL 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 


Functions 


Lma 


Lina 


Lma 


Lma 
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INQUIRE  CHARACTER  UP  VECTOR 

procedure  GInqCharUpVector( 

VAR  Errorlnd  :  INTEGER; 

VAR  UpVector  :  GRVector 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 

INQUIRE  CHARACTER  WIDTH 

procedure  GInqCharWidth( 

VAR  Errorlnd  :  INTEGER; 

VAR  Width  :  REAL 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 

INQUIRE  CHARACTER  BASE  VECTOR 

procedure  GInqCharBaseVector( 

VAR  Errorlnd  :  INTEGER; 

VAR  BaseVector  :  GRVector 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUrE  VALUES 


INQUIRE  TEXT  PATH 

procedure  GInqTextPath( 

VAR  Errorlnd 
VAR  Path 
); 


:  INTEGER; 
:  GEPath 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 


GKS  Functions 

Lma 

Lma 

Lma 

Lma 
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INQUIRE  TEXT  ALIGNMENT 

procedure  GInqTextAlign( 

VAR  Errorlnd  :  INTEGER; 

VAR  Align  :  GRAlign 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 

INQUIRE  FILL  AREA  INDEX 

procedure  GInqFillInd( 

VAR  Errorlnd  :  INTEGER; 

VAR  Filllnd  :  GTIntl 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 


INQUIRE  PATTERN  SIZE 

procedure  GInqPatternSize( 

VAR  Errorlnd  :  INTEGER; 

VAR  PattemWidth  :  GRVector 

VAR  PattemHeight  :  GRVector 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 

INQUIRE  PATTERN  REFERENCE  POINT 

procedure  GInqPatternRefPoint( 

VAR  Errorlnd  :  INTEGER; 

VAR  PattemRefPoint  :  GRPoint 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  PRIMITIVE  ATTRIBUTE  VALUES 


Inquiry  Functions 


Lma 


Lma 


Lma 


Lma 
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INQUIRE  CURRENT  PICK  IDENTIFIER  Lib 

procedure  GInqCurPickId( 

VAR  Errorlnd  :  INTEGER; 

VARPickld  :  GTPickld 

); 


INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES  Lma 

procedure  GInqCurIndivAttr( 

VAR  Errorlnd  :  INTEGER; 

VAR  IndivAttr  :  GAPrimRep; 

VAR  ListASF  :  GAASF 

); 


This  procedure  delivers  an  array  IndivAttr  with  elements  IndivAttr[GVPolyline], 
IndivAttr[GVPolymarker],  IndivAttrfGVText],  IndivAttr[GVFill],  Each  array  element  is  a  variant 
record  of  the  type  GRPrimRep  with  a  tag  field  corresponding  to  the  value  of  the  array  index.  For 
example,  the  following  would  be  true  for  the  element  IndivAttr[GVPolylinej: 

Prim  =  GVPolyline 

Ltype  =  the  current  line  type 

Width  =  the  current  line  width  scale  factor 

LColr  —  the  current  polyline  colour  Index 


INQUIRE  LINETYPE  Lma 

procedure  GInqLineType( 

VAR  Errorlnd  :  INTEGER; 

VARLType  :  INTEGER 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

INQUIRE  LINEWIDTH  SCALE  FACTOR  Lma 

procedure  GInqLineWidthScale( 

VAR  Errorlnd  :  INTEGER; 

VAR  Width  :  REAL 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 
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procedure  GInqLineColrInd( 

VARErrorlnd  :  INTEGER; 

VARLColr  :  GTIntO 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

INQUIRE  POLYMARKER  TYPE 

procedure  GInqMarkerType( 

VAR  Errorlnd  :  INTEGER; 

VARMType  :  INTEGER 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

INQUIRE  POLYMARKER  SIZE  SCALE  FACTOR 

procedure  GInqMarkerSizeScale( 

VARErrorlnd  :  INTEGER; 

VAR  Size  :  REAL 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

INQUIRE  POLYMARKER  COLOUR  INDEX 
procedure  GInqMarkerColrInd( 

VAR  Errorlnd  :  INTEGER; 

VARMColr  :  GTIntO 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 


Inquiry  Functions 


Lma 


Lma 


Lma 


Lma 
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Inquiry  Functions 


INQUIRE  TEXT  FONT  AND  PRECISION 

procedure  GInqTextFontPrec( 

VAR  Errorlnd  :  INTEGER; 

VAR  FontPrec  :  GRFontPrec 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

INQUIRE  CHARACTER  EXPANSION  FACTOR 

procedure  GInqCharExpan( 

VAR  Errorlnd  :  INTEGER; 

VAR  Expan  :  REAL 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

INQUIRE  CHARACTER  SPACING 
procedure  GInqCharSpacing( 

VAR  Errorlnd  :  INTEGER; 

VAR  Spacing  :  REAL 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

INQUIRE  TEXT  COLOUR  INDEX 
procedure  GInqTextColrInd( 

VAR  Errorlnd  :  INTEGER; 

VARTColr  :  GTIntO 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 


GKS  Functions 


Lma 


Lma 


Lma 


Lma 
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Inquiry 


INQUIRE  FILL  AREA  INTERIOR  STYLE 
procedure  GInqFillIntStyle( 

VAR  Errorlnd  :  INTEGER; 

VAR  Interior  :  GEInterior 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

INQUIRE  FILL  AREA  STYLE  INDEX 
procedure  GInqFillStyleInd( 

VAR  Errorlnd  :  INTEGER; 

VAR  Stylelnd  :  INTEGER 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUTE  VALUES 

INQUIRE  FILL  AREA  COLOUR  INDEX 
procedure  GInqFillColrInd( 

VAR  Errorlnd  :  INTEGER; 

VARFColr  :  GTIntO 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  A1TRIBUTE  VALUES 

INQUIRE  ASPECT  SOURCE  FLAGS 
procedure  GInqASF( 

VAR  Errorlnd  :  INTEGER; 

VAR  ListASF  :  GAASF 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  CURRENT  INDIVIDUAL  ATTRIBUrE  VALUES 

INQUIRE  CURRENT  NORMALIZATION  TRANSFORMATION  NUMBER 
procedure  GInqCurNormTranNum( 

VAR  Errorlnd  :  INTEGER; 

VAR  NormTranNum  :  GTIntO 

); 


Functions 


Lma 


Lma 


Lma 


Lma 


Lma 
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INQUIRE  LIST  OF  NORMALIZATION  TRANSFORMATION  NUMBERS 


procedure  GInqListNormTranNum( 


Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumNormTran 
VAR  NormTran 
); 


GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

INTEGER; 

GAInt 


LOa 


The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 

INQUIRE  NORMALIZATION  TRANSFORMATION  Lma 


procedure  GInqNormTran( 

NormTranNum  :  GTIntO; 

VAR  Errorlnd  :  INTEGER; 

VAR  WindowLimits, 

ViewportLimits  :  GRBound 

); 

INQUIRE  CLIPPING  Lma 

procedure  GInqClip( 

VAR  Errorlnd  :  INTEGER; 

VAR  Indicator  :  GEClip; 

VAR  ClippingRectangle  :  GRBound 

); 


INQUIRE  NAME  OF  OPEN  SEGMENT 

procedure  GInqOpenSeg( 

VAR  Errorlnd  :  INTEGER; 

VAR  SegName  :  GTSeg 

); 


Lla 
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INQUIRE  SET  OF  SEGMENT  NAMES  IN  USE 


procedure  GInqSegNames( 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumSegNames 
VAR  SegNames 
); 


GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntO; 

GASeg 


Lla 


The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 

INQUIRE  MORE  SIMULTANEOUS  EVENTS  Lmc 

procedure  GInqMoreEvents( 

VAR  Errorlnd  :  INTEGER; 

VAR  MoreEvents  :  GEEvents 

); 


6.9.5  Inquiry  Functions  for  Workstation  State  List 


INQUIRE  WORKSTATION  CONNECTION  AND  TYPE 


procedure  GInqWsConnType( 
Wsld 

VAR  Errorlnd 
VAR  Connld 
VAR  WsType 
); 


GTWsId; 

INTEGER; 

GAConnld; 

GTWsType 


Lma 


INQUIRE  WORKSTATION  STATE 
procedure  GInqWsSt( 


Wsld 

VAR  Errorlnd 
VAR  WsSt 
); 


GTWsId; 

INTEGER; 

GEWsSt 


LOa 
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INQUIRE  WORKSTATION  DEFERRAL  AND  UPDATE  STATES 


procedure  GInqWsDeferUpdSt( 
Wsld 

VAR  Error  I  nd 
VAR  WsSts 
); 


GTWsId; 

INTEGER; 

GRDeferUpd 


LOa 


INQUIRE  LIST  OF  POLYLINE  INDICES 


procedure  GInqListPolylineInd( 

Wsld 

Start 

Size 

VAR  Done 
VAR  Error! nd 
VAR  NumEntries 
VAR  DcfinedEntries 
); 


GTWsId; 

GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntl; 

GAInt 


This  procedure  is  a  specific  form  of 

INQUIRE  LIST  OF  <Primitive>  INDICES 
The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 


Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  POLYLINE  REPRESENTATION 

procedure  GInqPolylineRep( 

Wsld  :  GTWsId; 

Polylinelnd  :  GTIntl; 

TypeReturn  :  GEReturn; 

VAR  Errorlnd  :  INTEGER; 

VAR  LineRep  :  GRLineRcp 

); 

This  procedure  is  a  specific  form  of 

INQUIRE  <Primitive>  REPRESENTATION 


Lla 


Lla 
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INQUIRE  LIST  OF  POLYMARKER  INDICES 


procedure  GInqListPolymarkerInd( 


Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumEntries 
VAR  DefinedEntries 
); 


GTWsId; 

GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntl; 

GAInt 


Lla 


This  procedure  is  a  specific  form  of 

INQUIRE  LIST  OF  <Primitive>  INDICES 
The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 

INQUIRE  POLYMARKER  REPRESENTATION  Ela 

procedure  GInqPolymarkerRep( 

Wsld  :  GTWsId; 

Polymarkerlnd  :  GTIntl; 

TypeReturn  :  GEReturn; 

VAR  Errorlnd  :  INTEGER; 

VAR  MarkerRep  :  GRMarkerRep 

); 

This  procedure  is  a  specific  form  of 

INQUIRE  <Primitive>  REPRESENTATION 
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INQUIRE  LIST  OF  TEXT  INDICES 


procedure  GInqListTextInd( 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumEntries 
VAR  DefinedEntries 
); 


GTWsId; 

GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntl; 

GAInt 


Lla 


This  procedure  is  a  specific  form  of 

INQUIRE  LIST  OF  <Primitive>  INDICES 
The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  TEXT  REPRESENTATION 


procedure  GInqTextRep( 

Wsld 
Textlnd 
TypeRetum 
VAR  Errorlnd 
VAR  TextRep 
); 


GTWsId; 

GTIntl; 

GEReturn; 

INTEGER; 

GRTextRep 


Lla 


This  procedure  is  a  specific  form  of 

INQUIRE  <  Primitive >  REPRESENTATION 


INQUIRE  TEXT  EXTENT 

procedure  GInqTextExtent( 
Wsld 

TextPosition 
StringLength 
CharString 
VAR  Errorlnd 
VAR  ConcatPoint 
VAR  TextExtent 
); 


GTWsId; 

GRPoint; 

GTMaxString; 

GAString; 

INTEGER; 

GRPoint; 

GATextExtent 


Lma 
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INQUIRE  LIST  OF  FILL  AREA  INDICES 


procedure  GInqListFillInd( 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumEntries 
VAR  DefinedEntries 
); 


GTWsId; 

GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntl; 

GAInt 


Lla 


This  procedure  is  a  specific  form  of 

INQUIRE  LIST  OF  <Primitive>  INDICES 
The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 

INQUIRE  FILL  AREA  REPRESENTATION  Lla 

procedure  GInqFillRep( 

Wsld  :  GTWsId; 

Filllnd  :  Glint  1; 

TypeReturn  :  GEReturn; 

VAR  Errorlnd  :  INTEGER; 

VAR  FillRep  :  GRFillRep 

); 

This  procedure  is  a  specific  form  of 

INQUIRE  <  Primitive >  REPRESENTATION 


INQUIRE  LIST  OF  PATTERN  INDICES 

procedure  GInqListPattemInd( 

Wsld  :  GTWsId; 

Start  :  GTIntl; 

Size  :  GTInqSize; 

VAR  Done  :  Boolean; 

VAR  Errorlnd  :  INTEGER; 

VAR  NumEntries  :  GTIntO; 

VAR  Definedlnd  :  GAInt 

); 

The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2102  List  element  or  set  member  not  available 


Lla 
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INQUIRE  PATTERN  REPRESENTATION 


procedure  GInqPattemRep( 
Wsld 

Patternlnd 
TypeRetum 
VAR  Errorlnd 
VAR  Dx 
VAR  Dy 

VAR  Pat  tern  Array 

); 


GTWsId; 

GTIntl; 

GEReturn; 

INTEGER; 

GTMaxDX; 

GTMaxDY; 

GAColrlnq  Array 


Lla 


INQUIRE  LIST  OF  COLOUR  INDICES 


procedure  GInqListColrInd( 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumEntries 
VAR  Definedlnd 
); 


GTWsId; 

GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTInt2; 

GAInt 


The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 


Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  COLOUR  REPRESENTATION 


procedure  GInqColrRep( 

Wsld 

Ind 

TypeReturn 
VAR  Errorlnd 
VAR  Coir 
); 


GTWsId; 

GTIntO; 

GEReturn; 

INTEGER; 

GRColr 


Lma 


Lina 
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INQUIRE  WORKSTATION  TRANSFORMATION 


procedure  GInqWsTran( 
Wsld 

VAR  Errorlnd 
VAR  WsTranUpdSt 
VAR  ReqWsWindow, 
CurWsWindow, 
ReqWsViewport, 
CurWs  Viewport 
); 


GTWsId; 

INTEGER; 

GEWsTran; 


:  GRBound 


Lma 


INQUIRE  SET  OF  SEGMENT  NAMES  ON  WORKSTATION 


procedure  GInqSegNamesWs( 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumSegNames 
VAR  StoredSegsWs 
); 


GTWsId; 

GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntO; 

GASeg 


The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  LOCATOR  DEVICE  STATE 


procedure  GInqLocatorDeviceSt( 


Wsld 

LocatorDeviceN  um 
TypeReturn 
VAR  Errorlnd 
VAR  OpMode 
VAR  EchoSwitch 
VAR  InitialLocator 
VAR  PromptEcho 
VAR  EchoArea 
VAR  LocatorDataRec 
); 


GTWsId; 

GTIntl; 

GEReturn; 

INTEGER; 

GEMode; 

GEEcho; 

GRLocator; 

INTEGER; 

GRBound; 

GRLocatorData 


Lla 


Lmb 


This  procedure  is  a  specific  form  of 

INQUIRE  <Input>  DEVICE  STATE 
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INQUIRE  STROKE  DEVICE  STATE  Lmb 

procedure  GInqStrokeDeviceSt( 

Wsld 

StrokeDeviceNum 
TypeRcturn 
VAR  Errorlnd 
VAR  OpMode 
VAR  EchoSwitch 
VAR  InitialStroke 
VAR  Prompt  Echo 
VAR  Echo  Area 
VAR  StrokeBufSize 
VAR  StrokeDataRec 
); 

This  procedure  is  a  specific  form  of 

INQUIRE  <Input>  DEVICE  STATE 

INQUIRE  VALUATOR  DEVICE  STATE  Lmb 

procedure  GInqValuatorDeviceSt( 


Wsld 

GTWsId; 

V  al  uatorDeviceN  u  m 

GTIntl; 

VAR  Errorlnd 

INTEGER; 

VAR  OpMode 

GEMode; 

VAR  EchoSwitch 

GEEcho; 

VAR  InitialValue 

REAL; 

VAR  Prompt  Echo 

INTEGER; 

VAR  EchoArea 

GRBound; 

VAR  LowValue, 

HighValue 

REAL; 

VAR  ValuatorDataRec 

GRValuatorData 

); 


GTWsId; 

GTIntl; 

GERetum; 

INTEGER; 

GEMode; 

GEEcho; 

GRStroke; 

INTEGER; 

GRBound; 

GTIntl; 

GRStrokeData 


This  procedure  is  a  specific  form  of 

INQUIRE  <Input>  DEVICE  STATE 
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INQUIRE  CHOICE  DEVICE  STATE 


procedure  GInqChoiceDeviceSt( 
Wsld 

ChoiceDeviceNum 
VAR  Errorlnd 
VAR  OpMode 
VAR  EchoSwitch 
VAR  InitialChoice 
VAR  PromptEcho 
VAR  EchoArea 
VAR  ChoiceDataRec 
); 


GTWsId; 

GTIntl; 

INTEGER; 

GEM  ode; 

GEEcho; 

GRChoice; 

INTEGER; 

GRBound; 

GRChoiceData 


Lmb 


This  procedure  is  a  specific  form  of 

INQUIRE  <Input>  DEVICE  STATE 

INQUIRE  PICK  DEVICE  STATE  Lib 

procedure  GInqPickDeviceSt( 


Wsld 

GTWsId; 

PickDeviceNum 

GTIntl; 

TypeRetum 

GEReturn; 

VAR  Errorlnd 

INTEGER; 

VAR  OpMode 

GEMode; 

VAR  EchoSwitch 

GEEcho; 

VAR  InitialPick 

GRPick; 

VAR  PromptEcho 

INTEGER; 

VAR  EchoArea 

GRBound; 

VAR  PickDataRec 

GRPickData 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  <  Input >  DEVICE  STATE 
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INQUIRE  STRING  DEVICE  STATE  Lmb 

procedure  GInqStringDeviceSt( 


Wsld 

GTWsId; 

StringDeviceNum 

GTIntl; 

VAR  Errorlnd 

INTEGER; 

VAR  OpMode 

GEMode; 

VAR  EchoSwitch 

GEEcho; 

VAR  InitialString 

GRString; 

VAR  PromptEcho 

INTEGER; 

VAR  EchoArea 

GRBound; 

VAR  StringBufSize, 

InitialPosition 

GTIntl; 

VAR  StringDataRec 

GRStringData 

); 


This  procedure  is  a  specific  form  of 

INQUIRE  <Input>  DEVICE  STATE 


6.9.6  Inquiry  Functions  for  Workstation  Description  Table 

INQUIRE  WORKSTATION  CATEGORY 

procedure  GInqWsCategory( 

WsType  :  GTWsType; 

VARErrorlnd  :  INTEGER; 

VAR  WsCategory  :  GEWsCategory 

); 


LOa 


INQUIRE  WORKSTATION  CLASSIFICATION 


procedure  GInqWsClass( 

WsType 
VAR  Errorlnd 
VAR  WsClass 
); 


GTWsType; 

INTEGER; 

GEWsClass 


LOa 


INQUIRE  DISPLAY  SPACE  SIZE 


procedure  GInqDisplaySize( 

WsType 
VAR  Errorlnd 
VAR  DisplaySize 
); 


GTWsType; 

INTEGER; 

GRDisplaySize 


Lina 
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INQUIRE  DYNAMIC  MODIFICATION  OF  WORKSTATION  ATTRIBUTES 
procedure  GInqDynModWsAttr( 

WsType  :  GTWsType; 

VAR  Errorlnd  :  INTEGER; 

VAR  DynMod  :  GRDynModWsAttr 

); 


INQUIRE  DEFAULT  DEFERRAL  STATE  VALUES 


procedure  GInqDcfDeferSt( 

WsType 
VAR  Errorlnd 
VAR  DefDeferMode 
VAR  DefRegenMode 
); 


GTWsType; 

INTEGER; 

GEDefer; 

GEImplicitRegen 


INQUIRE  POLYLINE  FACILITIES 


procedure  GInqPolylineFacil( 

WsType 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  Facil 
); 


GTWsType; 

GTIntl; 

Boolean; 

INTEGER; 

GRLineFacil 


This  procedure  is  a  specific  form  of 

INQUIRE  <Primitive>  FACILITIES 
The  parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  PREDEFINED  POLYLINE  REPRESENTATION 


procedure  GInqPredPolylineRep( 


WsType 
Predlnd 
VAR  Errorlnd 
VAR  LineRep 
); 


GTWsType; 

GTIntl; 

INTEGER; 

GRLineRep 


This  procedure  is  a  specific  form  of 

INQUIRE  PREDEFINED  <Primitive>  REPRESENTATION 


Inquiry  Functions 

Lla 

Lla 

Lma 


LOa 


83 


AMERICAN  NATIONAL  STANDARD  X3.124.2-1988 


Inquiry  Functions 


GKS  Functions 


INQUIRE  POLYMARKER  FACILITIES 


procedure  GInqPolymarkerFacil( 

WsType 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  Facil 
); 


GTWsType; 

GTIntl; 

Boolean; 

INTEGER; 

GRMarkerFacil 


Lma 


This  procedure  is  a  specific  form  of 

INQUIRE  <Primitive>  FACILITIES 
The  parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  PREDEFINED  POLYMARKER  REPRESENTATION 

procedure  GInqPredPolymarkerRep( 


WsType 
Predlnd 
VAR  Errorlnd 
VAR  MarkerRep 
); 


GTWsType ; 
GTIntl; 
INTEGER; 
GRMarkerRep 


LOa 


This  procedure  is  a  specific  form  of 

INQUIRE  PREDEFINED  <Primitive>  REPRESENTATION 


INQUIRE  TEXT  FACILITIES 
procedure  GInqTextFacil( 

WsType 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  Facil 
); 


GTWsType; 

GTIntl; 

Boolean; 

INTEGER; 

GRTextFacil 


Lma 


This  procedure  is  a  specific  form  of 

INQUIRE  <Primitive>  FACILITIES 
The  parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 
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INQUIRE  PREDEFINED  TEXT  REPRESENTATION 


procedure  GInqPredTextRep( 

WsType 
Predlnd 
VAR  Errorlnd 
VAR  TextRep 
); 


Gd  WsType; 
GTIntl; 
INTEGER; 
GRTextRep 


LOa 


This  procedure  is  a  specific  form  of 

INQUIRE  PREDEFINED  <Primitive>  REPRESENTATION 


INQUIRE  FILL  AREA  FACILITIES 


procedure  GInqFillFacil( 

WsType 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  Facil 
); 


GTWsType; 

GTIntl; 

Bcx>lean; 

INTEGER; 

GRFillFacil 


Lma 


This  procedure  is  a  specific  form  of 

INQUIRE  <  Primitive >  FACILITIES 
The  parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  PREDEFINED  FILL  AREA  REPRESENTATION 


procedure  GInqPredFillRep( 

WsType 
Predlnd 
VAR  Errorlnd 
VAR  FillRep 
); 


GTWsType; 

GTIntl; 

INTEGER; 

GRFillRep 


LOa 


This  procedure  is  a  specific  form  of 

INQUIRE  PREDEFINED  <Primitive>  REPRESENTATION 
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INQUIRE  PATTERN  FACILITIES  LOa 

procedure  GInqPattemFacil( 

WsType  :  GTWsType; 

VAR  Errorlnd  :  INTEGER; 

VAR  NumPredPattemlnd  :  GTIntO 

); 


INQUIRE  PREDEFINED  PATTERN  REPRESENTATION 


procedure  GInqPredPattemRep( 

WsType 
Predlnd 
VAR  Errorlnd 
VAR  Dx 
VAR  Dy 

VAR  PattemArray 

); 


GTWsType; 
GTIntl; 
INTEGER; 
GTMaxDX; 
GTMaxDY ; 
GAColrlnq  Array 


LOa 


INQUIRE  COLOUR  FACILITIES 


procedure  GInqColrFacil( 

WsType 
VAR  Errorlnd 
VAR  NumColrs 
VAR  ColrAvail 
VAR  NumPredColrlnd 
); 


GTWsType; 
INTEGER; 
GTIntO; 
GEDi  splay; 
GTInt2 


Lma 


INQUIRE  PREDEFINED  COLOUR  REPRESENTATION 


procedure  GInqPredColrRep( 

WsType 
Predlnd 
VAR  Errorlnd 
VAR  Coir 
); 


GTWsType; 

GTIntO; 

INTEGER; 

GRColr 


LOa 
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INQUIRE  LIST  OF  AVAILABLE  GENERALIZED  DRAWING  PRIMITIVES 


procedure  GInqListGDP( 

WsType 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumGDP 
VAR  ListGDPId 
); 


GTWsType; 

GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntO; 

GAGDP 


The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  GENERALIZED  DRAWING  PRIMITIVE 


procedure  GInqGDP( 

WsType 

GDPId 

VAR  Errorlnd 
VAR  NumAttr 
VAR  ListAttr 
); 


GTWsType; 

GTGDPId; 

INTEGER; 

GTIntO; 

GSPrim 


INQUIRE  MAXIMUM  LENGTH  OF  WORKSTATION  STATE  TABLES 


procedure  GInqMaxWsSt( 

WsType 
VAR  Errorlnd 
VAR  MaxN  urn  Prim 
VAR  MaxNumPattem 
VAR  MaxNumColr 
); 


GTWsType; 

INTEGER; 

GAPrim; 

GTIntO; 

GTInt2 


INQUIRE  NUMBER  OF  SEGMENT  PRIORITIES  SUPPORTED 
procedure  GInqNumSegPriorities( 

WsType  :  GTWsType; 

VAR  Errorlnd  :  INTEGER; 

VAR  NumSegPriorities  :  GTIntO 

); 


Functions 

LOa 


LOa 

Lma 

Lla 
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Inquiry  Functions 


INQUIRE  DYNAMIC  MODIFICATION  OF  SEGMENT  ATTRIBUTES 

procedure  GInqDynModSegAttr( 

WsType  :  GTWsType; 

VARErrorlnd  :  INTEGER; 

VAR  SegAttrChangeable  :  GASegMod 

); 


INQUIRE  NUMBER  OF  AVAILABLE  LOGICAL  INPUT  DEVICES 

procedure  GInqNumInputDevices( 

WsType  :  GTWsType; 

VARErrorlnd  :  INTEGER; 

VAR  NumlnputDevices  :  GAInputClass 

); 


INQUIRE  DEFAULT  LOCATOR  DEVICE  DATA 


procedure  GInqOefLocatorDeviceData( 


WsType 

InputDeviceNum 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  DefData 
); 


GTWsType; 

GTIntl; 

GTIntl; 

Boolean; 

INTEGER; 

G  R  De  f  Loca  t  or  Da  t  a 


This  procedure  is  a  specific  form  of 

INQUIRE  DEFAULT  <Input>  DEVICE  DATA 
The  parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 


GKS  Functions 

Lla 

Lmb 

Lmb 
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GKS  Functions 


Inquiry  Functions 


INQUIRE  DEFAULT  STROKE  DEVICE  DATA 


procedure  GInqDefStrokeDeviceData( 


WsType 

InputDeviceNum 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  DefData 
); 


GTWsType; 

GTIntl; 

GTIntl; 

Boolean; 

INTEGER; 

GRDefStrokeData 


Lmb 


This  procedure  is  a  specific  form  of 

INQUIRE  DEFAULT  <Input>  DEVICE  DATA 
The  parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  DEFAULT  VALUATOR  DEVICE  DATA 


procedure  GInqDefValuatorDeviceData( 


WsType 

InputDeviceNum 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  DefData 
); 


GTWsType; 

GTIntl; 

GTIntl; 

Boolean; 

INTEGER; 

GRDefValuatorData 


Lmb 


This  procedure  is  a  specific  form  of 

INQUIRE  DEFAULT  <Input>  DEVICE  DATA 
The  parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 
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Inquiry  Functions 
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INQUIRE  DEFAULT  CHOICE  DEVICE  DATA 

procedure  GInqDefChoiceDeviceData( 


WsType 

InputDeviceNum 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  DefData 
); 


GTWsType; 

GTIntl; 

GTIntl; 

Boolean; 

INTEGER; 

GRDefChoiceData 


Lmb 


This  procedure  is  a  specific  form  of 

INQUIRE  DEFAULT  <Input>  DEVICE  DATA 
The  parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  DEFAULT  PICK  DEVICE  DATA 

procedure  GInqDefPickDeviceData( 


WsType 

InputDeviceNum 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  DefData 
); 


GTWsType; 

GTIntl; 

GTIntl; 

Boolean; 

INTEGER; 

GRDefPickData 


Lib 


This  procedure  is  a  specific  form  of 

INQUIRE  DEFAULT  <Input>  DEVICE  DATA 
The  parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 
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Inquiry  Functions 


INQUIRE  DEFAULT  STRING  DEVICE  DATA 


procedure  GInqDefStringDeviceData( 


WsType 

InputDeviceNum 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  DefData 
); 


G1  WsType; 
GTIntl; 

Gl’Int  1; 

Boolean; 

INTEGER; 

GRDefStringData 


Lmb 


This  procedure  is  a  specific  form  of 

INQUIRE  DEFAULT  <Input>  DEVICE  DATA 
The  parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 

6.9.7  Inquiry  Functions  for  Segment  State  List 


INQUIRE  SET  OF  ASSOCIATED  WORKSTATIONS 


procedure  GInqAssocWs( 

SegName 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumberAssocWs 
VAR  AssocWsId 
); 


GTSeg; 

GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntl; 

GAWsId 


Lla 


The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 

INQUIRE  SEGMENT  ATTRIBUTES  Lla 

procedure  GInqSegAttr( 

SegName  :  GTSeg; 

VAR  Errorlnd  :  INTEGER; 

VAR  SegAttr  :  GRSegAttr 

); 
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6.9.8  Pixel  Inquiries 


INQUIRE  PIXEL  ARRAY  DIMENSIONS 
procedure  GInqPixelArrayDim( 

Wsld  :  GTWsId; 

q  :  GRPoint; 

VAR  Errorlnd  :  INTEGER; 

VAR  Dx, 

Dy  :  GTIntl 

); 


INQUIRE  PIXEL  ARRAY 

procedure  GInqPixelArray( 
Wsld 
P 

Dx 

Dy 

VAR  Errorlnd 
VAR  InvalidValues 
VAR  ColrlndArray 
); 


GTWsId; 

GRPoint; 

GTMaxDX; 

GTMaxDY ; 

INTEGER; 

GEInvPixel; 

GAColrlnq  Array 


LOa 


LOa 


INQUIRE  PIXEL 

procedure  GInqPixel( 
Wsld 
P 

VAR  Errorlnd 
VAR  Col  rind 

); 


GTWsId; 

GRPoint; 

INTEGER; 

INTEGER 


LOa 


6.9.9  Inquiry  Function  for  GKS  Error  Stale  List 

INQUIRE  INPUT  QUEUE  OVERFLOW  Lmc 

procedure  GInqInputOverflow( 


VAR  Errorlnd 

:  INTEGER; 

VAR  Wsld 

:  GTWsId; 

VAR  InputClass 

:  GEInputClass; 

VAR  InputDeviceNum 

:  GTIntl 

); 
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6.10  Utility  Functions 


EVALUATE  TRANSFORMATION  MATRIX 


procedure  GEvalTran( 

FixedPoint 

ShiftVector 

RotationAngle 

Scale 

Coord  i  nateSwi  tch 
VAR  SegTranMatrix 
); 


GRPoint; 

GRVector; 

REAL; 

GRVector; 

GECoordSwitch; 

GAMatrix 


Lla 


ACCUMULATE  TRANSFORMATION  MATRIX 


procedure  GAccumTran( 

InsegTran 

FixedPoint 

ShiftVector 

RotationAngle 

Scale 

CoordinateSwitch 
VAR  SegTran 
); 


GAMatrix; 

GRPoint; 

GRVector; 

REAL; 

GRVector; 

GECoordSwitch; 

GAMatrix 


Lla 


6.11  Error  Handling 

EMERGENCY  CLOSE  GKS  LOa 

procedure  GEmergencyCloseGKS; 


ERROR  HANDLING 

procedure  GErrorHandling( 

ErrorNum 

Procld 

ErrorFile 

); 


INTEGER; 

GAProcName; 

GTErrorFileName 


LOa 


ERROR  LOGGING 

procedure  GErrorLogging( 

ErrorNum 

Procld 

ErrorFile 

); 


INTEGER; 

GAProcName; 

GTErrorFileName 


LOa 
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Data  Types  in  Compilation  Order 


(This  Appendix  is  not  part  of  ANSI  X3. 124.2-1988,  but  is  included  for  information  only.) 


This  Appendix  categorizes  the  constants  and 
types  of  the  binding,  and  gives  a  possible  order¬ 
ing  of  type  definitions  that  meets  the  Pascal 
requirements. 

Al.  Implementation-Defined  Constants 

GCDefErrorLog 

GCMaxChoicePicks 

GCMaxChoicePrompts 

GCMaxChoiceStrings 

GCMaxDX 

GCMaxDY 

GCMaxEscapeln 

GCMaxEscapeOut 

GCMaxFile 

GCMaxGDP 

GCMaxInq 

GCMaxItem 

GCMaxMemory 

GCMaxName 

GCMaxPoint 

GCMaxString 

A2.  Required  Constants 

GCCircleMarker 

GCCrossMarker 

GCDashDotLine 

GCDashedLine 

GCDefMemory 

GCDotMarker 

GCDottedLine 

GCPlusMarker 

GCSolidLine 

GCStarMarker 

A3.  Implementation-Defined  Tag  Types 

GTChoiceDataTag 

GTEscapeDataTag 

GTGDPDataTag 

GTLocatorDataTag 

GTPickDataTag 

G'PSt  ri  ngDataT  ag 

GTSt  r  ok  e  Da  t  aTag 


GTValuatorDataTag 

A4.  Error  Logging  and  Connection  Files 

GTErrorFileName 

GAConnld 

AS.  General  Types 

GTInqSize 

GTIntO 

GTIntl 

GTInt2 

GTInt3 

GTMaxChoicePicks 

GTMaxChoicePrompts 

GTMaxChoiceStrings 

GTMaxDX 

GTMaxDY 

GTMaxEscapeln 

GTMaxEscapeOut 

GTMaxGDP 

GTMaxItem 

GTMaxPointO 

GTMaxPointl 

GTMaxPoint2 

GTMaxPoint3 

GTMaxString 

GTMemory 

GTEscapeld 

GTGDPId 

GTPickld 

GTSeg 

GTWsId 

GTWsType 

GRBound 

GRIntVector 

GRVector 

GRPoint 

GAInt 

GAColrArray 

GAColrlnq  Array 

GAGDP 

GAPickld 

GAPointArray 

GASeg 
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GAString 

GATextExtent 

GAProcName 

GAWsId 

GAWsType 

GEInvPixel 

A6.  Types  Applicable  to  Workstation  Control 
Procedures 

GEControl 

GEDefer 

GEImplicitRegen 

GEUpdRegen 

GEWsSt 

A7.  Types  Applicable  to  Transformation  Pro¬ 
cedures 

GEClip 

GEPriority 

A8.  Types  Applicable  to  Attribute  Setting  Pro¬ 
cedures 

GEASF 

GEAttrControl 

GEHorizontal 

GEInterior 

GELineFillControl 

GEPath 

GEPrec 

GEPrim 

GEPrimAttr 

GEVertical 

GRAlign 

GRColr 

GRFontPrec 

GRPrimRep 

GAASF 

GAFontPrec 

GAPrimRep 

GRText 

GSInterior 

GSPrim 

A9.  Types  Applicable  to  Segment  Procedures 

GECoord  Switch 

GEDet 

GEHighlight 

GEVis 

GAMatrix 


General  Types 

A10.  Types  Applicable  to  Input  Procedures 

GEEcho 

GEEvents 

GEEventClass 

GEMode 

GEPrompt 

GEReqStatus 

GEInputClass 

GEInputStatus 

GAPrompt 

All.  Types  Applicable  to  GKS  Description 

GELevel 

GRWsMaxNum 

A12.  Types  Applicable  to  GKS  State 

GEOpSt 

GRPrimAttr 

A13.  Types  Applicable  to  Workstation  State 

GENfan 

GEReturn 

GESurface 

GEWsTran 

GRDeferUpd 

A14.  Types  Applicable  to  Workstation  Descrip¬ 
tion 

GEDeviceUnits 

GEDisplay 

GEDynMod 

GESegAttr 

GEWsCatcgory 

GEWsClass 

GAInputClass 

GAPrim 

GASegMod 

GRDisplaySize 

GRDynModWsAttr 

A15.  Types  Applicable  to  Segment  State 
GRSegAttr 

A16.  GKS  Data  Records 

GRChoiccData 

GREscapcDataln 

GREscapcDataOut 

GAEscapelnlnt 

GAEscapcInReal 

GAEscapelnString 
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GKS  Data  Records 

GAEscapeOutlnt 

GAEscapeOutReal 

GAEscapeOutString 

GRFileData 

GRGDPData 

GAGDPInt 

GAGDPReal 

GAGDPString 

GAItcmlnt 

GAItemRcal 

GAItemString 

GRLocatorData 

GRPickData 

GRStringData 

GRStrokeData 

GRValuatorData 

A 17.  Types  Applicable  to  the  One-One  Pro¬ 
cedures 

GRChoice 

GRDcfChoiceData 

GRDefLocatorData 

GRDefPickData 

GRDefStringData 

GRDcfStrokcData 

GRDefValuatorData  ( 

GRFillFacil 

GRFillRep 

GRFillAttr 

GRLineFacil 

GRLineRep 

GRLincAttr 

GRLocator 

GRMarkerFacil 

GRMarkerRep 

GRMarkerAttr 

GRPick 

GRString 

GRStroke 

GRTextFacil 

GRTextRep 

GAStringList 

A 18.  Types  Applicable  to  the  Many-One  Pro¬ 
cedures 

GRInput 

GRInputData 

GRDcflnput 

GRPrimFacil 


< 
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Metafile  Item  Types 


(This  Appendix  is  not  part  of  ANSI  X3. 124.2-1988,  but  is  included  for  information  only.) 

The  GET  ITEM  TYPE  FROM  GKSM  function  returns  an  integer  value  which  uniquely  identifies  the 
type  of  the  next  metafile  item.  However,  the  value  of  the  item  type  may  vary  depending  on  the  metafile 
implementation.  In  order  to  allow  application  programs  to  be  written  in  a  manner  which  is  independent 
of  the  metafile  implementation,  the  following  Pascal  names  are  suggested.  The  implementation  should 
define  these  names  with  values  which  match  the  values  returned  by  the  GET  ITEM  TYPE  FROM 
GKSM  procedure.  The  USER  ITEM  START  item  is  used  to  indicate  the  first  user  item  type.  All  of  the 
integers  corresponding  to  the  other  items  in  the  table  are  less  than  the  value  of  USER  ITEM  START.  All 
user  items  should  have  a  value  greater  than  or  equal  to  the  value  of  USER  ITEM  STAR  !'. 


Table  B1  -  Pascal  Item  Type  Names 


GKSM  Item  Type 

Pascal  Name 

ASPECT  SOURCE  FLAGS 

GITASF 

CELL  ARRAY 

GITCellArray 

CHARACTER  EXPANSION  FACTOR 

GITCharExpan 

CHARACTER  SPACING 

GITCharSpacing 

CHARACTER  VECTORS 

GITCharVectors 

CLEAR  WORKSTATION 

GITClearWs 

CLIPPING  RECTANGLE 

GITClipRect 

CLOSE  SEGMENT 

GITCloseSeg 

COLOUR  REPRESENTATION 

GITColrRcp 

CREATE  SEGMENT 

GITCreateSeg 

DEFERRAL  STATE 

GITDeferSt 

DELETE  SEGMENT 

GITDelSeg 

END  ITEM 

GITEndltem 

ESCAPE 

GITEscape 

FILL  AREA 

GITFill 

FILL  AREA  COLOUR  INDEX 

GITFillColrlnd 

FILL  AREA  INDEX 

GITFilllnd 

FILL  AREA  INTERIOR  STYLE 

G  ITFill  IntStyle 

FILL  AREA  REPRESENTATION 

GITFillRep 

FILL  AREA  STYLE  INDEX 

GITFillStylelnd 

GENERALIZED  DRAWING  PRIMITIVE  (GDP) 

GITGDP 

LINETYPE 

GITLineType 

LINEWIDTH  SCALE  FACTOR 

GITLineWidthScale 

MARKER  SIZE  SCALE  FACTOR 

GITMarkerSize  Scale 

MARKER  TYPE 

GITMarkerType 

MESSAGE 

GITMessage 

PATTERN  REFERENCE  POINT 

GITPatternRefPoint 

PATTERN  REPRESENTATION 

GITPatternRep 

PATTERN  VECTORS 

GITPattern  Vectors 

PICK  IDENTIFIER 

GITPickld 
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Appendix  B 


Table  BI  -  Pascal  Item  Type  Names 


GKSM  Item  Type 

Pascal  Name 

POLYLINE 

GITPolyline 

POLYLINE  COLOUR  INDEX 

GITLineColrlnd 

POLYLINE  INDEX 

GITPolylinelnd 

POLYLINE  REPRESENTATION 

GITPolylineRep 

POLYMARKER 

GITPolymarker 

POLYMARKER  COLOUR  INDEX 

GITMarkerColrInd 

POLYMARKER  INDEX 

GITPolymarkerlnd 

POLYMARKER  REPRESENTATION 

GITPolymarkerRep 

REDRAW  ALL  SEGMENTS  ON  WORKSTATION 

GITRedrawSegWs 

RENAME  SEGMENT 

GITRenameSeg 

SET  DETECTABILITY 

GITSctDct 

SET  HIGHLIGHTING 

GITSetHighlight 

SET  SEGMENT  PRIORITY 

GITSetSegPriority 

SET  SEGMENT  TRANSFORMATION 

GITSetSegTran 

SET  VISIBILITY 

GITSetVis 

TEXT 

GITText 

TEXT  ALIGNMENT 

GITTextAlign 

TEXT  COLOUR  INDEX 

GITTextColrlnd 

TEXT  FONT  AND  PRECISION 

GITTextFontPrec 

TEXT  INDEX 

GITTextlnd 

TEXT  PATH 

GITTextPath 

TEXT  REPRESENTATION 

GITTextRep 

UPDATE  WORKSTATION 

GITUpdWs 

USER  ITEM  START 

GITUserltem 

WORKSTATION  VIEWPORT 

GITWsViewport 

WORKSTATION  WINDOW 

GITWsWindow 
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Appendix  C 
Conformant  Arrays 


(This  Appendix  is  not  part  of  ANSI  X3. 124.2-1988,  but  is  included  for  information  only.) 

The  Pascal  language,  as  described  in  ANSI/IEEE  770X3.97-1983,  does  not  define  a  method  for  passing 
arrays  of  varying  size  as  actual  parameters  to  procedures.  However,  many  compilers  have  implemented  a 
conformant  array  mechanism  in  conformance  with  ISO  7185-1982,  Programming  languages  -  Pascal. 
Since  several  procedures  within  the  GKS  binding  to  Pascal  benefit  from  the  use  of  conformant  arrays,  this 
appendix  specifies  a  binding  which  may  be  used  when  conformant  array  capabilities  are  available. 

Cl.  Conformant-Array-Specific  GKS  Errors 

The  use  of  conformant  arrays  in  Pascal  makes  additional  errors  (beyond  the  ones  described  in  clause  4) 
possible.  Specifically,  these  new  errors  are  defined: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 

This  error  is  invoked  when  the  parameter  which  specifies  size  or  length  is  not  compatible  with  the  bounds 
of  a  conformant  array.  For  example,  in  Level  1  GPolyline,  NumPoints  must  not  be  greater  than  (max- 
min+  1).  This  error  is  also  defined  in  Appendix  C. 

2101  The  supplied  array  is  too  small  to  store  the  required  data 

This  error  is  invoked  when  the  data  requested  in  an  inquiry  exceeds  the  size  of  the  array  passed  to  the 
procedure. 


C2.  Conformant  Array  Procedures 


MESSAGE 

procedure  GMessage( 
Wsld 

StringLength 

Message 

); 


GTWsId; 

GTIntl ; 

packed  arrayfmin. .max  :  GTIntl]  of  CHAR 


Lla 


The  parameter  StringLength  must  be  <  max-min+1. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
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Conformant  Array  Procedures 


Appendix  C 


ESCAPE 

procedure  GEscapeGeneralized( 

GTEscapeld; 
GTIntO; 

array[minl..maxl 
GTIntO; 

array[min2.  .max2 
GTIntO; 

array[min3..max3 
GTIntO; 

array[min4..max4 
GTIntO; 

array[min5..max5 
GTIntO; 

array[min6..max6 


Lma 

INTEGER]  of  INTEGER; 

INTEGER]  of  REAL; 

INTEGER]  of  GRString 
INTEGER]  of  INTEGER; 

INTEGER]  of  REAL; 

INTEGER]  of  GRString 


Escapeld 
Numlntln 
VAR  IntDataln 
NumRealln 
VAR  RealDataln 
NumStringln 
VAR  StringDataln 
VAR  NumlntOut 
VAR  IntDataOut 
VAR  NumRealOut 
VAR  RealDataOut 
VAR  NumStringOut 
VAR  StringDataOut 


The  value  of  the  parameter  Numlntln  (<  maxl-minl+1)  must  specify  the  number  of  integers  in  the 
array  IntDataln.  The  value  of  the  parameter  NumRealln  (<  max2-min2+l)  must  specify  the  number  of 
reals  in  the  array  RealDataln.  The  value  of  the  parameter  NumStringln  (<  max3-min3+l)  must  specify 
the  number  of  strings  in  the  array  StringDataln.  Although  the  arrays  are  variable  parameters,  the 
implementation  must  not  change  the  value  of  the  arrays. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 


POLYLINE  Lma 

procedure  GPolyline( 

NumPoints  :  GTInt2; 

VAR  Points  :  array  [min.,  max  :  INTEGER]  of  GRPoint 

); 


The  parameter  NumPoints  <  max-min+1  is  the  number  of  points  in  the  array.  Although  the  array  is  a 
variable  parameter,  the  implementation  must  not  change  the  value  of  the  array. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
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POLYMARKER  Lma 

procedure  GPolymarker( 

NumPoints  :  GTIntl; 

VAR  Points  :  array[min..max  :  INTEGER]  of  GRPoint 

); 

The  parameter  NumPoints  <  max-min+1  is  the  number  of  points  in  the  array.  Although  the  array  is  a 
variable  parameter,  the  implementation  must  not  change  the  value  of  the  array. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 

TEXT  Lma 

procedure  GText( 

TextPosition  :  GRPoint; 

StringLength  :  GTIntl; 

CharString  :  packed  array[min..max  :  GTIntl]  of  CHAR 

); 


The  parameter  StringLength  must  be  <  max-min+1. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 

FILL  AREA  Lma 

procedure  GFill( 

NumPoints  :  GTInt3; 

VAR  Points  :  array[min..max  :  INTEGER]  of  GRPoint 

); 


The  parameter  NumPoints  <  max-min+1  is  the  number  of  points  in  the  array.  Although  the  array  is  a 
variable  parameter,  the  implementation  must  not  change  the  value  of  the  array. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
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Conformant  Array  Procedures 


Appendix  C 


CELL  ARRAY 

procedure  GCellArray( 

PointP, 

PointQ 

Dx, 

Dy 

VAR  Colrlnds 

); 


LOa 


:  GRPoint; 

:  GTIntl; 

:  array[minl..maxl  :  INTEGER;  min2..max2  :  INTEGER]  of  GTIntO 


The  cell  array  bounds  are  mini  to  minl  +  Dx-1  (<maxl)  and  min2  to  min2+Dy-l  (<max2).  Although 
the  array  is  a  variable  parameter,  the  implementation  must  not  change  the  value  of  the  array. 


Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 


GENERALIZED  DRAWING  PRIMITIVE  (GDP) 


procedure  GGDP( 

NumPoints 
VAR  Points 
GDPId 

VAR  DataRec 

); 


GTIntO; 

array[min..max  :  INTEGER]  of  GRPoint; 
GTGDPId; 

GRGDPData 


LOa 


The  value  of  the  parameter  NumPoints  (<  max-min+1)  must  specify  the  number  of  points  in  the  array 
Points.  Although  the  array  and  data  record  are  variable  parameters,  the  implementation  must  not  change 
the  value  of  the  array  or  data  record. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
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procedure  GGDPGeneralized( 


NumPoints 

GTIntO; 

VAR  Points 

array[minl..maxl 

GDPId 

GTGDPId; 

Numlnt 

GTIntO; 

VAR  IntData 

array[min2..max2 

NumReal 

GTIntO; 

VAR  RealData 

array[min3..max3 

NumString 

GTIntO; 

VAR  StringData 

array[min4..max4 

); 


Conformant  Array  Procedures 

INTEGER]  of  GRPoint; 

INTEGER]  of  INTEGER; 

INTEGER]  of  REAL; 

INTEGER]  of  GRString 


The  value  of  the  parameter  NumPoints  (<  maxl-minl  + 1)  must  specify  the  number  of  points  in  the  array 
Points.  The  value  of  the  parameter  Numlnt  (<  max2-min2+l)  must  specify  the  number  of  integers  in 
the  array  IntData.  The  value  of  the  parameter  NumReal  (<  max3-min3+l)  must  specify  the  number  of 
reals  in  the  array  RealData.  The  value  of  the  parameter  NumString  (<  max4-min4+  1)  must  specify  the 
number  of  strings  in  the  array  StringData.  Although  the  arrays  are  variable  parameters,  the  implementa¬ 
tion  must  not  change  the  value  of  the  arrays. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 

SET  PATTERN  REPRESENTATION  Lla 

procedure  GSetPattemRep( 

Wsld  :  GTWsId; 

Ind  :  GTIntl; 

Dx, 

Dy  :  GTIntl; 

VAR  PattemArray  :  arrayfminl . .maxi  :  INTEGER;  min2..max2  :  INTEGER]  of  GTIntO 

); 


The  pattern  array  bounds  are  mini  to  minl  +  Dx-1  (<maxl)  and  min2  to  min2+Dy-l  (<max2). 
Although  the  array  is  a  variable  parameter,  the  implementation  must  not  change  the  value  of  the  array. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
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Conformant  Array  Procedures 


Appendix  C 


WRITE  ITEM  TO  GKSM 


procedure  GWriteItemGeneralized( 


Wsld 
ItemType 
Numlntln 
VAR  IntDataln 
NumRealln 
VAR  RealDataln 
NumStringln 
VAR  StringDataln 
); 


GTWsId; 

INTEGER; 

GTIntO; 

array[  mini.,  maxi 
GTIntO; 

array[min2..max2 

GTIntO; 

array[min3..max3 


INTEGER]  of  INTEGER; 
INTEGER]  of  REAL; 
INTEGER]  of  GRString 


LOa 


The  value  of  the  parameter  Numlntln  (<  maxl-minl +  1)  must  specify  the  number  of  integers  in  the 
array  IntDataln.  The  value  of  the  parameter  NumRealln  (<  max2-min2+l)  must  specify  the  number  of 
reals  in  the  array  RealDataln.  The  value  of  the  parameter  NumStringln  (<  max3-min3+l)  must  specify 
the  number  of  strings  in  the  array  StringDataln.  Although  the  arrays  are  variable  parameters,  the 
implementation  must  not  change  the  value  of  the  arrays. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 


INQUIRE  LIST  OF  AVAILABLE  WORKSTATION  TYPES 


procedure  GInqListWsTypes( 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumWsTypes 
VAR  WsTypes 
); 


GTIntl; 


INTEGER; 

Boolean; 

INTEGER; 

GTIntl; 

array  [min..max:INTEGER]  of  GTWsType 


LOa 


The  parameter  Size  must  be  <  max-min+  1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 
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Conformant  Array  Procedures 


INQUIRE  SET  OF  OPEN  WORKSTATIONS 


procedure  GInqOpenWs( 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumOpenWs 
VAR  OpenWs 
); 


GTIntl; 

INTEGER; 

Boolean; 

INTEGER; 

GTIntO; 

array  [min..max:INTEGER]  of  GIAVsId 


LOa 


The  parameter  Size  must  be  <  max-min+ 1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 


INQUIRE  SET  OF  ACTIVE  WORKSTATIONS 


procedure  GInqActiveWs( 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumActiveWs 
VAR  ActiveWs 
); 


GTIntl; 

INTEGER; 

Boolean; 

INTEGER; 

GTIntO; 

array  [min..max:INTEGER]  of  GTWsId 


Lla 


The  parameter  Size  must  be  <  max-min+1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 


INQUIRE  LIST  OF  NORMALIZATION  TRANSFORMATION  NUMBERS  LOa 

procedure  GInqListNormTranNum( 

Start  :  GTIntl; 

Size  :  INTEGER; 

VAR  Done  :  Boolean; 

VAR  Errorlnd  :  INTEGER; 

VAR  NumNormTran  :  INTEGER; 

VAR  NormTran  :  array  [min..max:INTEGER]  of  INTEGER 

); 


The  parameter  Size  must  be  <  max-min+1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 
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INQUIRE  SET  OF  SEGMENT  NAMES  IN  USE 


procedure  GInqSegNames( 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumSegNames 
VAR  SegNames 
); 


GTTntl; 

INTEGER; 

Boolean; 

INTEGER; 

GTIntO; 

array  [min..max:INTEGER]  of  GTSeg 


Lla 


The  parameter  Size  must  be  <  max-min+  1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 


INQUIRE  LIST  OF  POLYLINE  INDICES 


procedure  GInqListPolylineInd( 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumEntries 
VAR  DefinedEntries 
); 


GTWsId; 


GTIntl; 

INTEGER; 

Boolean; 

INTEGER; 


GTIntl; 


array  [min..max:INTEGER]  of  INTEGER 


Lla 


The  parameter  Size  must  be  <  max-min+  1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 
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Conformant  Array  Procedures 


INQUIRE  LIST  OF  POLYMARKER  INDICES 


procedure  GInqListPolymarkerInd( 


Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumEntries 
VAR  DefinedEntries 
); 


GTWsId; 

GTIntl; 

INTEGER; 

Boolean; 

INTEGER; 

GTIntl; 

array  [min.,  max  INTEGER]  of  INTEGER 


Lla 


The  parameter  Size  must  be  <  max-min+1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 


INQUIRE  LIST  OF  TEXT  INDICES 


procedure  GInqListTextInd( 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumEntries 
VAR  DefinedEntries 
); 


GTWsId; 

GTIntl; 

INTEGER; 

Boolean; 

INTEGER; 

GTIntl; 

array  [min.,  max  INTEGER]  of  INTEGER 


Lla 


The  parameter  Size  must  be  <  max-min+1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 


107 


Appendix 


Conformant  Array  Procedures 


Appendix  C 


INQUIRE  TEXT  EXTENT 
procedure  GInqTextExtent( 
Wsld 

TextPosition 
StringLength 
CharString 
VAR  Error Ind 
VAR  ConcatPoint 
VAR  TextExtent 
); 


GTWsId; 

GRPoint; 

GTIntl; 

packed  array[min..max  :  GTIntl]  of  CHAR; 
INTEGER; 

GRPoint; 

GATextExtent 


Lma 


The  parameter  StringLength  must  be  <  max-min+  1. 

Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 


INQUIRE  LIST  OF  FILL  AREA  INDICES 


procedure  GInqListFillInd( 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumEntries 
VAR  DefinedEntries 
); 


GTWsId; 


GTIntl; 

INTEGER; 


Boolean; 

INTEGER; 

GTIntl; 


array  [min.  ,max:INTEGER]  of  INTEGER 


Lla 


The  parameter  Size  must  be  <  max-min+  1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 
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Conformant  Array  Procedures 


INQUIRE  LIST  OF  PATTERN  INDICES 
procedure  GInqListPatternInd( 


Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumEntries 
VAR  Definedlnd 
); 


GTWsId; 

GTIntl; 

INTEGER; 

Boolean; 

INTEGER; 

GTIntO; 

array  [min..max:INTEGER]  of  INTEGER 


Lla 


The  parameter  Size  must  be  <  max-min+ 1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 


INQUIRE  PATTERN  REPRESENTATION 


Lla 


procedure  GInqPattemRep( 
Wsld 

Pattemlnd 
TypeRetum 
VAR  Errorlnd 
VAR  Dx, 

Dy 

VAR  PatternArray 
); 


:  GTWsId; 

:  GTIntl; 

:  GERetum; 

:  INTEGER; 

:  GTIntl; 

:  array[minl.. maxi :INTEGER;  min2..max2:INTEGER]  of  INTEGER 


The  pattern  array  is  within  the  bounds  mini  to  minl  +  Dx-1  (<maxl)  and  min2  to  min2+Dy-l  (<max2). 
Errors: 

2101  The  supplied  array  is  too  small  to  store  the  required  data 
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Appendix  C 


INQUIRE  LIST  OF  COLOUR  INDICES 


procedure  GInqListColrInd( 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumEntries 
VAR  Definedlnd 

); 


GTWsId; 

GTIntl; 

INTEGER; 

Boolean; 

INTEGER; 

GTInt2; 

array  [min..max:INTEGER]  of  INTEGER 


Lma 


The  parameter  Size  must  be  <  max-min+  1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 


INQUIRE  SET  OF  SEGMENT  NAMES  ON  WORKSTATION 


procedure  GInqSegNamesWs( 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumSegNames 
VAR  StoredSegsWs 
); 


GTWsId; 

GTIntl; 


INTEGER; 

Boolean; 

INTEGER; 

GTIntO; 

array  [min.  .max:INTEGER]  of  GTSeg 


Lla 


The  parameter  Size  must  be  <  max-min+1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 
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Conformant  Array  Procedures 


INQUIRE  PREDEFINED  PATTERN  REPRESENTATION 


LOa 


procedure  GInqPredPattemRep( 

WsType 
Predlnd 
VAR  Errorlnd 
VAR  Dx, 

Dy 

VAR  PattemArray 
); 


GTWsType; 

GTIntl; 

INTEGER; 

GTIntl; 

array[minl.. maxi  INTEGER;  mi n2.  ,max2 INTEGER]  of  INTEGER 


The  pattern  array  bounds  are  mini  to  minl  +  Dx-1  (<maxl)  and  min2  to  min2+Dy-l  (<max2). 
Errors: 

2101  The  supplied  array  is  too  small  to  store  the  required  data 


INQUIRE  LIST  OF  AVAILABLE  GENERALIZED  DRAWING  PRIMITIVES 


procedure  GInqListGDP( 

WsType 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumGDP 
VAR  GDPId 

); 


GTWsType; 

GTIntl; 

INTEGER; 

Boolean; 

INTEGER; 

GTIntO; 

array  [min..max:INTEGER]  of  GTGDPId 


LOa 


The  parameter  Size  must  be  <  max-min+1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 
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INQUIRE  SET  OF  ASSOCIATED  WORKSTATIONS 


procedure  GInqAssocWs( 

SegName 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumberAssocWs 
VAR  AssocWsId 
); 


GTSeg; 

GTTntl; 

INTEGER; 

Boolean; 

INTEGER;  ' 

GTIntl; 

array  [min..max:INTEGER]  of  GTWsId 


Lla 


The  parameter  Size  must  be  <  max-min+ 1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 
Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 


INQUIRE  PIXEL  ARRAY 

procedure  GInqPixelArray( 
Wsld 
P 

Dx, 

Dy 

VAR  Errorlnd 
VAR  InvalidValues 
VAR  ColrlndArray 

); 


LOa 


GTWsId; 

GRPoint; 

GTIntl; 

INTEGER; 

GEInvPixel; 

array[minl..maxl  :  INTEGER;  min2..max2:INTEGER]  of  INTEGER 


The  colour  index  array  bounds  are  mini  to  minl  +  Dx-1  (<maxl)  and  min2  to  min2+Dy-l  (<max2). 
Errors: 

2101  The  supplied  array  is  too  small  to  store  the  required  data 
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Appendix  D 

The  Many-One  Pascal  Interface 


(This  Appendix  is  not  part  of  ANSI  X3. 124.2-1988,  but  is  included  for  information  only.) 

There  may  not  be  a  strict  one-to-one  correspondence  between  GKS  abstract  functions  and  Pascal  pro¬ 
cedures.  A  method  employing  variant  records  may  be  used  to  represent  several  logically  related  GKS 
abstract  functions  by  one  Pascal  procedure.  The  first  parameter  of  such  a  procedure  is  always  an 
enumerated  type  which  is  the  tag  field  of  a  variant  record  which  is  itself  a  parameter  of  the  Pascal  pro¬ 
cedure.  This  technique  is  used  across  two  classes  of  abstract  functions  -  those  relating  to  the  setting  and 
inquiring  of  output  primitive  representations,  and  those  relating  to  the  setting  and  inquiring  of  the  input 
classes.  Where  this  method  is  used,  the  rules  for  deriving  the  Pascal  name  of  the  GKS  abstract  function 
are: 

(1)  Output  Primitive  Representations 

(a)  The  GKS  words  Polyline,  Polymarker,  Text,  and  Fill  Area  are  replaced  by  “Prim”  (which  is 
the  abbreviation  for  PRIMITIVE). 

(b)  The  first  parameter  of  the  function  is  an  enumerated  type  (GEPrim)  which  has  one  of  the 
values  GVPolyline,  GVPolymarker,  GVText,  GVFillArea. 

(2)  Input  Classes 

(a)  The  GKS  w'ords  Locator,  Stroke,  Valuator,  Choice,  Pick,  and  String  are  replaced  by  “Input”. 

(b)  The  first  parameter  of  the  function  is  an  enumerated  type  (GEInputClass)  which  has  one  of  the 
values  GVLocator,  GVStroke,  GVValuator,  GVChoice,  GVPick,  GVString. 

This  interface  may  exist  in  addition  to  the  interface  defined  in  clauses  3,  4,  5,  and  6,  but  the  many-one 
interface  is  not  permitted  to  replace  what  is  defined  in  clauses  3,  4,  5,  and  6. 


Dl.  Many-One-Interface-Specific  GKS  Errors 

The  use  of  the  many-one  interface  in  Pascal  makes  additional  errors  (beyond  the  ones  described  in  clause 
4)  possible.  Specifically,  these  new  errors  are  defined: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 

This  error  is  invoked  when  the  parameter  which  specifies  size  or  length  is  not  compatible  with  the  bounds 
of  a  conformant  array.  For  example,  in  Level  1  GPolyline,  NumPoints  must  not  be  greater  than  (max- 
min+1).  This  error  is  also  defined  in  Appendix  B. 

2103  Pick  is  not  supported  in  this  level  of  GKS 

This  error  is  invoked  when  GVPick  is  passed  as  a  parameter  to  a  Level  m  or  Level  0  implementation. 
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Appendix  D 


D2.  Additional  Data  Types 

GRDeflnput  =  record 

NumPrompt 

GTIntl; 

PromptList 

GAInt; 

Area 

GRBound; 

Data 

GRInputData; 

case  Class 

GEInputClass  of 

GVLocator 

(InitialPosition 

GRPoint); 

GVStroke 

(MaxStroke 

GTIntl); 

GVValuator 

(InitialValue 

REAL); 

GVChoice 

(MaxChoice 

GTIntl); 

GVPick 

(); 

GVString 

(MaxString 

GTIntl) 

end; 

GRInput  =  record 

case  InputClass 

GEInputClass  of 

GVLocator 

(NormTranLocator 

GTIntO; 

Position 

GRPoint); 

GVStroke 

(NormTranStroke 

GTIntO; 

Num 

GTIntO; 

Points 

GAPoint  Array); 

GVValuator 

(Value 

REAL); 

GVChoice 

(ChoiceStatus 

GEInputStatus;  . 

ChoiceNum 

GTIntl);  \\ 

GVPick 

(PickStatus 

GEInputStatus; 

Segment 

GTSeg; 

Pickld 

GTPickld); 

GVString 

(StringLength 

GTIntO; 

CharString 

GAString) 

end; 

GRInputData  -  record 

case  InputClass 

GEInputClass  of 

GVLocator 

(Locator  Data 

GRLocatorData) ; 

GVStroke 

(StrokeBufSize 

GTIntl; 

StrokeData 

GRStrokeData); 

GVValuator 

(LowValue, 

HighValue 

REAL; 

ValuatorData 

GR  ValuatorData) ; 

GVChoice 

(ChoiceData 

GRChoiceData); 

GVPick 

(PickData 

GRPickData); 

GVString 

(StringBufSize 

GTIntl; 

InitialPosition 

GTIntl; 

StringData 

GRStringData) 

end; 

II 
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Additional  Data  Types 


GRPrimFacil  =  record 


NumTypes 

:  GTIntl; 

NumPredlnd 

:  GTIntO; 

case  Prim 

:  GEPrim  of 

GVPolyline 

:  (Lines 

GAInt; 

NumWidths 

NominalWidth, 

MinWidth, 

GTIntO; 

MaxWidth 

REAL); 

GVPolymarker 

:  (Markers 

GAInt; 

NumSizes 

NominalSize, 

MinSize, 

GTIntO; 

MaxSize 

REAL); 

GVText 

:  (FontPrecs 

GAFontPrec; 

NumHeights 

MinHeight, 

GTIntO; 

MaxHeight 

REAL; 

NumExpan 

MinExpan, 

GTIntO; 

MaxExpan 

REAL); 

GVFillArea 

:  (Styles 

GSInterior; 

NumHatch 

GTIntO; 

end; 

Hatches 

GAInt) 

D3.  Output  Attributes 

D3.1  Workstation-Independent  Primitive  Attributes 


SET  POLYLINE  INDEX 
SET  POLYMARKER  INDEX 
SET  TEXT  INDEX 
SET  FILL  AREA  INDEX 

procedure  GSetPrimInd( 

Prim  :  GEPrim; 

Primlnd  :  GTIntl 

); 


LOa 

LOa 

LOa 

LOa 


This  procedure  is  a  general 

SET  <  Primitive  >  INDEX 

By  substituting  for  the  components  of  the  type  GEPrim,  the  GKS  abstract  functions  are  obtained. 
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D3.2  Workstation  Attributes  (Representations) 


SET  POLYLINE  REPRESENTATION  Lla 

SET  POLYMARKER  REPRESENTATION  Lla 

SET  TEXT  REPRESENTATION  Lla 

SET  FILL  AREA  REPRESENTATION  Lla 


procedure  GSetPrimRep( 

Prim 
Wsld 
Primlnd 
PrimRep 
); 

This  procedure  is  a  general 

SET  <Primitive>  REPRESENTATION 

By  substituting  for  the  components  of  the  type  GEPrim,  the  GKS  abstract  functions  are  obtained. 

D4.  Input  Functions 

D4.1  Initialisation  of  Input  Devices 


GEPrim; 

GTWsId; 

GTIntl; 

GRPrimRep 


INITIALISE  LOCATOR 
INITIALISE  STROKE 
INITIALISE  VALUATOR 
INITIALISE  CHOICE 
INITIALISE  PICK 
INITIALISE  STRING 

procedure  Glnitlnput( 

InputClass 

Wsld 

InputDeviceNum 

Initiallnput 

PromptEchoType 

EchoArea 

VAR  InputDataRecord 

); 


GEInputClass; 

GTWsId; 

GTIntl; 

GRInput; 

INTEGER; 

GRBound; 

GRInputData 


This  procedure  is  a  general 

INITIALISE  <Input> 


Lmb 

Lmb 

Lmb 

Lmb 

Lib 

Lmb 


By  substituting  the  components  of  the  type  GEInputClass  the  GKS  abstract  functions  are  obtained. 
Although  the  data  record  is  a  variable  parameter,  the  implementation  must  not  change  the  value  of  the 
data  record. 


Errors: 

2103  Pick  is  not  supported  in  this  level  of  GKS 
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Input  Functions 


D4.2  Setting  the  Mode  of  Input  Devices 

SET  LOCATOR  MODE 
SET  STROKE  MODE 
SET  VALUATOR  MODE 
SET  CHOICE  MODE 
SET  PICK  MODE 
SET  STRING  MODE 

procedure  GSetInputMode( 

InputClass 
Wsld 

InputDeviceNum 
OperatingMode 
EchoSwitch 
); 

This  procedure  is  a  general 

SET  <  Input >  MODE 

By  substituting  the  components  of  the  type  GEInputClass  the  GKS  abstract  functions  are  obtained. 
Errors: 

2103  Pick  is  not  supported  in  this  level  of  GKS 


Lmb 

Lmb 

Lmb 

Lmb 

Lib 

Lmb 


GEInputClass; 

GTWsId; 

GTIntl; 

GEMode; 

GEEcho 
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D4.3  Request  Input  Functions 


REQUEST  STRING 


REQUEST  LOCATOR 
REQUEST  STROKE 


REQUEST  VALUATOR 


REQUEST  CHOICE 
REQUEST  PICK 


Lmb 

Lmb 

Lmb 

Lmb 

Lib 

Lmb 


procedure  GReqInput( 


InputClass 


GEInputClass; 


InputDeviceNum 


Wsld 


GTWsId; 

GTIntl; 


VAR  Status 
VAR  InputMeasure 


GEReqStatus; 

GRInput 


); 


This  procedure  is  a  general 

REQUEST  <Input> 

By  substituting  the  components  of  the  type  GEInputClass  the  GKS  abstract  functions  are  obtained. 

In  the  case  of  REQUEST  CHOICE  and  REQUEST  PICK,  the  status  is  returned  in  the  Status  parameter 
and  also  in  the  returned  record. 

Errors: 

2103  Pick  is  not  supported  in  this  level  of  GKS 
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D4.4  Sample  Input  Functions 


SAMPLE  LOCATOR 
SAMPLE  STROKE 
SAMPLE  VALUATOR 
SAMPLE  CHOICE 
SAMPLE  PICK 
SAMPLE  STRING 

procedure  GSampleInput( 

InputClass 

Wsld 

InputDeviceNum 
VAR  InputMeasure 
); 


GEInputClass; 

GTWsId; 

GTIntl; 

GRInput 


Lmc 

Lmc 

Lmc 

Lmc 

Lie 

Lmc 


This  procedure  is  a  general 
SAMPLE  <Input> 

By  substituting  the  components  of  the  type  GEInputClass  the  GKS  abstract  functions  are  obtained. 
Errors: 

2103  Pick  is  not  supported  in  this  level  of  GKS 


D4.5  Event  Input  Functions 

GET  LOCATOR 

Lmc 

GET  STROKE 

Lmc 

GET  VALUATOR 

Lmc 

GET  CHOICE 

Lmc 

GET  PICK 

Lie 

GET  STRING 

Lmc 

procedure  GGetInput( 

InputClass  :  GEInputClass; 

VAR  InputMeasure  :  GRInput 

); 


This  procedure  is  a  general 
GET  <Input> 

By  substituting  the  components  of  the  type  GEInputClass  the  GKS  abstract  functions  are  obtained. 
Errors: 

2103  Pick  is  not  supported  in  this  level  of  GKS 
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D5.  Inquiry  Functions 


INQUIRE  LIST  OF  POLYLINE  INDICES 
INQUIRE  LIST  OF  POLYMARKER  INDICES 
INQUIRE  LIST  OF  TEXT  INDICES 
INQUIRE  LIST  OF  FILL  AREA  INDICES 

Pascal  level  1 


procedure  GInqListPrimInd( 

Prim 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumPrimEntries 
VAR  DefinedPrimlnd 
); 


GEPrim; 

GTWsId; 

GTIntl; 

INTEGER; 

Boolean; 

INTEGER; 

GTIntl; 


array  [min..max:INTEGER]  of  INTEGER 


Lla 

Lla 

Lla 

Lla 


This  procedure  is  a  general 

INQUIRE  LIST  OF  <Primitive>  INDICES 

By  substituting  for  the  components  of  the  type  GEPrim,  the  GKS  abstract  functions  are  obtained.  The 
parameter  Size  must  be  <  max-min+1.  The  parameters  Start,  Size,  and  Done  are  defined  in  3.7. 


Errors: 

2100  There  is  an  incompatibility  between  the  bounds  of  the  array  and  the  actual  size  parameters  specified 
2102  List  element  or  set  member  not  available 

Pascal  level  0 


procedure  GInqListPrimInd( 

Prim 

Wsld 

Start 

Size 

VAR  Done 
VAR  Errorlnd 
VAR  NumPrimEntries 
VAR  DefinedPrimlnd 
); 


GEPrim; 

GTWsId; 

GTIntl; 

GTInqSize; 

Boolean; 

INTEGER; 

GTIntl; 

GAInt 


This  procedure  is  a  general 

INQUIRE  LIST  OF  <Primitive>  INDICES 

By  substituting  for  the  components  of  the  type  GEPrim,  the  GKS  abstract  functions  are  obtained.  The 
parameters  Start,  Size,  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 
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INQUIRE  POLYLINE  REPRESENTATION 
INQUIRE  POLYMARKER  REPRESENTATION 
INQUIRE  TEXT  REPRESENTATION 
INQUIRE  FILL  AREA  REPRESENTATION 


procedure  GInqPrimRep( 

Prim 
Wsld 
Primlnd 
TypeRetum 
VAR  Errorlnd 
VAR  PrimRep 
); 


GEPrim; 

GTWsId; 

GTIntl; 

GEReturn; 

INTEGER; 

GRPrimRep 


Lla 

Lla 

Lla 

Lla 


This  procedure  is  a  general 

INQUIRE  <Primitive>  REPRESENTATION 

By  substituting  for  the  components  of  the  type  GEPrim,  the  GKS  abstract  functions  are  obtained. 


INQUIRE  LOCATOR  DEVICE  STATE  Lmb 

INQUIRE  STROKE  DEVICE  STATE  Lmb 

INQUIRE  VALUATOR  DEVICE  STATE  Lmb 

INQUIRE  CHOICE  DEVICE  STATE  Lmb 

INQUIRE  PICK  DEVICE  STATE  Lib 

INQUIRE  STRING  DEVICE  STATE  Lmb 


procedure  GInqInputDeviceSt( 


InputClass 

GEInputClass; 

Wsld 

GTWsId; 

InputDeviceNum 

GTIntl; 

TypeRetum 

GEReturn; 

VAR  Errorlnd 

INTEGER; 

VAR  OpMode 

GEM ode; 

VAR  EchoSwitch 

GEEcho; 

VAR  InputDeviceSt 

GRInput; 

VAR  PromptEcho 

INTEGER; 

VAR  EchoArea 

GRBound; 

VAR  InputDataRecord 
); 

GRInputData 

This  procedure  is  a  general 

INQUIRE  <Input>  DEVICE  STATE 

By  substituting  the  components  of  the  type  GEInputClass  the  GKS  abstract  functions  are  obtained. 

Where  GEReturn  is  not  specified  as  required  by  the  corresponding  abstract  GKS  function,  that  is  for  the 
cases  Valuator,  Choice  and  String,  then  the  supplied  value  of  TypeReturn  can  be  GVSet  or  GVRealized. 

Errors: 

2103  Pick  is  not  supported  in  this  level  of  GKS 


121 


Appendix 


Inquiry  Functions 


Appendix  D 


INQUIRE  POLYLINE  FACILITIES 

Lma 

INQUIRE  POLYMARKER  FACILITIES 

Lma 

INQUIRE  TEXT  FACILITIES 

Lma 

INQUIRE  FILL  AREA  FACILITIES 

Lma 

procedure  GInqPrimFacil( 

Prim 

GEPrim; 

WsType 

GTWsType; 

Start 

GTIntl; 

VAR  Done 

Boolean; 

VAR  Errorlnd 

INTEGER; 

VAR  PrimFacil 

GRPrimFacil 

); 


This  procedure  is  a  general 

INQUIRE  <Pnmitive>  FACILITIES 

By  substituting  for  the  components  of  the  type  GEPrim,  the  GKS  abstract  functions  are  obtained.  The 
parameters  Start  and  Done  are  defined  in  3.7. 

Errors: 

2102  List  element  or  set  member  not  available 


INQUIRE  PREDEFINED  POLYLINE  REPRESENTATION 
INQUIRE  PREDEFINED  POLYMARKER  REPRESENTATION 
INQUIRE  PREDEFINED  TEXT  REPRESENTATION 
INQUIRE  PREDEFINED  FILL  AREA  REPRESENTATION 


procedure  GInqPredPrimRep( 

Prim 
WsType 
PredPrimlnd 
VAR  Errorlnd 
VAR  PrimRep 
); 


GEPrim; 

GT  WsType; 
GTIntl; 
INTEGER; 
GRPrimRep 


LOa 

LOa 

LOa 

LOa 


This  procedure  is  a  general 

INQUIRE  PREDEFINED  <Primitive>  REPRESENTATION 
By  substituting  for  the  components  of  the  type  GEPrim,  the  GKS  abstract  functions  are  obtained. 
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INQUIRE  DEFAULT  LOCATOR  DEVICE  DATA 
INQUIRE  DEFAULT  STROKE  DEVICE  DATA 
INQUIRE  DEFAULT  VALUATOR  DEVICE  DATA 
INQUIRE  DEFAULT  CHOICE  DEVICE  DATA 
INQUIRE  DEFAULT  PICK  DEVICE  DATA 
INQUIRE  DEFAULT  STRING  DEVICE  DATA 

procedure  GInqDefInputDeviceData( 


InputClass 

WsType 

InputDeviceNum 
Start 
VAR  Done 
VAR  Errorlnd 
VAR  DeflnputData 
); 


GEInputClass; 

GTWsType; 

GTIntl; 

GTIntl; 

Boolean; 

INTEGER; 

GRDeflnput 


Lmb 

Lmb 

Lmb 

Lmb 

Lib 

Lmb 


This  procedure  is  a  general 

INQUIRE  DEFAULT  <Input>  DEVICE  DATA 

By  substituting  the  components  of  the  type  GEInputClass,  the  GKS  abstract  functions  are  obtained.  The 
parameters  Start  and  Done  are  defined  in  3.7. 


Errors: 

2102  List  element  or  set  member  not  available 

2103  Pick  is  not  supported  in  this  level  of  GKS 
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Example  Programs 


(This  Appendix  is  not  part  of  ANSI  X3. 124.2-1988,  but  is  included  for  information  only.) 

This  Appendix  gives  example  programs  using  the  language  binding  defined  in  this  part  of  ANSI  X3.124- 
1985. 


El.  Program  STAR 

{ 

PROGRAM  STAR 

DESCRIPTION: 

This  program  draws  a  yellow  star  on  a  blue  background 
and  writes  the  title  'Star'  in  green  under  the  star. 

CONFORMANCE: 

GKS  level:  ma 

The  implementation  must  support  at  least  one 
workstation  of  category  output  or  outin 


} 

PROGRAM  STAR  (output) ; 

CONST 

(  Implementation-specific  method  to  define  the 
implementation's  constants.  } 

$INCLUDE  ' gks . pi ' $ 

{  User  defined  constants  } 
wsid  =  1; 
wstype  =  1 ; 


TYPE 


{  Implementation-specific  method  to  define  the  GKS  data  types.  } 
$ INCLUDE  ' gks . p2 ' $ 


VAR 

align 

coir 

conid 

f  nam 

length 

position 

starpoints 


GRA1 ign ; 

GRColr ; 

GAConnld ; 
GTErrorFileName ; 
INTEGER; 

GRPoint ; 
GAPointArray ; 
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title  :  GAString; 

winlimits  :  GRBound; 

{  Implementation-specific  method  to  define  the  interface  to 
the  GKS  routines  } 

$INCLUDE  'gks.p3 '$ 

I*************************************************************} 


BEGIN 

{  Open  GKS  and  activate  a  workstation. 


fnam  :=  1; 

conid  :=  '/dev/display 7 ; 


GOpenGKS  (  fnam,  GCDefMemory  ) ; 
GOpenWs  (  wsid,  conid,  wstype  ) ; 
GActivateWs  (  wsid  ) ; 


{  Centre  the  window  around  the  origin. 


WITH  winlimits  DO 
BEGIN 

LeftBound  : 
RightBound  : 
LowerBound  : 
UpperBound  : 
END;  {  with  } 


-1.25; 

1.25; 

-1.25; 

1.25; 


GSetWindow  (  1,  winlimits  ); 
GSelectNormTran  (  1  ) ; 


{  Define  the  colours  to  be  used. 


WITH  coir  DO 
BEGIN 

Red  : =  0.0; 

Green  :=  0.0; 

Blue  ;=  1.0; 

END;  {  with  } 

GSetColrRep  (  wsid,  0,  coir  ); 

WITH  coir  DO 
BEGIN 

Red  : =  1.0; 

Green  ;=  1.0; 

Blue  : =  0.0; 

END;  {  with  } 

GSetColrRep  (  wsid,  1,  coir  ); 


} 


} 


} 


WITH  coir  DO 
BEGIN 
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Red  : =  0.0; 

Green  :=  1.0; 

Blue  ;=  0.0; 

END;  {  with  } 

GSetColrRep  (  wsid,  2,  coir  ); 

{  Fill  the  star  with  solid  yellow. 

GSetFilllntStyle  (  GVSolid  ) ; 
GSetFillColrlnd  (  1  ) ; 


{  Draw  the  star. 

starpoints [ 1 ] . x 
starpoints [  2  ]  .  x 
starpoints [  3  ]  .  x 
starpoints [ 4 ] . x 
starpoints [ 5 ] . x 

starpoints [ 1 ]  .  y 
starpoints [ 2 ] . y 
starpoints [ 3 ] . y 
starpoints [ 4 ]  .  y 
starpoints [ 5 ] . y 


0.951057; 
-0.951057  ; 
0.587785; 
0.0; 

-0 . 587785; 

0.309017; 

0.309017; 

-0.951057; 

1.0; 

0.951057  ; 


GFill  (  5,  starpoints  ) ; 

{  Select  large  characters  centred  under  the  star.  } 


align . Horizontal 
align. Vertical 


:=  GVHcentre; 
:=  GWhalf ; 


GSetCharHeight  (  0.15  ); 
GSetTextAlign  (  align  ) ; 
GSetTextColrlnd  (  2  )  ; 

{  Draw  the  title. 


position . x 
position . y 
length 
title 


=  0.0; 
=  -1.1; 
=  4 ; 

=  '  Star 


GText  (  position,  length,  title  ) ; 

{  Close  the  workstation  and  shut  down  GKS . 

GDeactivateWs  (  wsid  ) ; 

GCloseWs  (  wsid  ) ; 

GCloseGKS ; 


END.  {  main  } 


Appendix  E 


f  . 
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E2.  Program  IRON 

{ 

PROGRAM  IRON 
DESCRIPTION: 

This  program  draws  a  horizontal  bar  chart  illustrating 
costs  within  the  iron  industry.  The  user  can  select  the 
data  to  be  displayed  using  a  GKS  choice  device.  The  plot 
is  adapted  from  'Scientific  American'  May  1984  page  39. 

CONFORMANCE: 

GKS  level:  Ob 

Choice  device  must  support  prompt  and  echo  type  3 


} 

PROGRAM  IRON  (  output  ) ; 


CONST 

{  Implementation-specific  method  to  define  the 
implementation's  constants.  } 

$INCLUDE  'gks . pi ' $ 

{  User  defined  constants  } 
errout  =  1 ; 
wsid  =  1; 
wstype  =  1 ; 


TYPE 


{  Implementation-specific  method  to  define  the  GKS  data  types.  } 
$INCLUDE  ' gks . p2 ' $ 


bardata  =  ARRAY  [1..6]  of  REAL; 


VAR 

area 

asf list 

choice 

coir 

conid 

datarec 

echosw 

error 

gdatl , 

gdat2 , 

jdatl , 

jdat2 

opmode 

prompt 


GRBound ; 
GAASF ; 
GRChoice ; 
GRColr ; 
GAConnld ; 
GRChoiceData 
GEEcho ; 
INTEGER; 


bardata ; 
GEMode ; 
INTEGER; 


127 


Appendix 


Program  IRON 

Appendix  E 

status 
usdatl , 

:  GEReqStatus; 

usdat2 

:  bardata; 

window 

:  GRBound ; 

{  Implementation-specific  method  to  define  the  interface  to 
the  GKS  routines  } 

$INCLUDE  'gks.p3'$ 

PROCEDURE  bar  (  length,  pos  :  REAL  ) ; 

VAR 

align  :  GRAlign; 
bar  :  GAPointArray ; 

textpos  :  GRPoint; 


BEGIN 

{  If  the  value  is  too  small,  print  a  zero  } 

IF  (length  <=  0.0)  THEN 
BEGIN 

align. Horizontal  :=  GVHLeft; 
al  ign .  Vertical  :=  GWhalf; 

GSetTextAlign  (  align  ) ; 

textpos. x  :=  0.0; 
textpos. y  ;=  pos; 

GText  (  textpos,  1,  '0'); 

END  {  if  } 

ELSE 

{  Otherwise  draw  the  bar  } 


BEGIN 
bar [ 1] . x 
bar [2 ] . x 
bar [ 3 ] . x 
bar [ 4 ] . x 


0.0; 
length ; 
length ; 
0.0; 


bar [ 1] .y 
bar [ 2 ] . y 
bar [3 ] .y 
bar [ 4 ] . y 


pos  +  0.4; 
pos  +  0.4; 
pos  -  0.4; 
pos  -  0.4; 


GFill  (  4,  bar  ); 
END;  {  else  } 

END;  {  bar  } 


PROCEDURE  ticks  (  first,  last  :  REAL  )  ; 


VAR 
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tick  :  GAPointArray ; 

BEGIN 

{  Determine  the  direction  of  the  tick  } 

tick[ 1 ] . x  : =  0.0; 
tick [ 2 ] . x  : =  0.0; 
tick[l].y  :=  first; 
tick[2].y  :=  last; 

{  Draw  each  tick  mark  } 

FOR  index  :=  1  TO  4  DO 
BEGIN 

GPolyline  (  2,  tick  ); 
tick[l].x  ;=  tick[l].x  +  50.0; 
tick[2].x  :=  tick[2].x  +  50.0; 


END;  {  for  } 

{  Draw  the  tick  mark 

labels 

textpos. x  :=  0.0; 
textpos. y  :=  first; 
GText  (  textpos,  1, 

'  0 ' )  ; 

textpos .x  : =  50.0; 
GText  (  textpos,  2, 

'50  7 )  ; 

textpos. x  :=  100.0; 
GText  (  textpos,  3, 

7  100 7  )  ; 

textpos. x  :=  150.0; 
GText  (  textpos,  3, 

7  150  7  )  ; 

END;  {  ticks  } 

PROCEDURE  border  (  length  :  INTEGER;  nation  :  GAString  ) ; 
VAR 

align 
box 
expan 
textpos 

BEGIN 

{  Clear  the  screen  (if  not  already  clear)  ) 

GClearWs  (wsid,  GVConditionally ) ; 

{  Draw  the  box  surrounding  the  chart  area  } 

box [ 1 ] . x  : =  0.0; 
box [2].x  :=  150.0; 


:  GRAlign; 

:  GAPointArray; 
:  REAL; 

:  GRPoint; 


129 


Appendix 


Program  IRON 


Appendix  E 


box[ 3 ] . x 
box [4 ] . x 
box[5] .x 
box[ 1] .y 
box [ 2 ] .y 
box[ 3 ] .y 
box [4 ] .y 
box[ 5] .y 


150.0; 

0.0; 

0.0; 

0.0; 

0.0; 

12.0; 

12.0; 

0.0; 


GPolyline  (  5,  box  ) ; 

{  Draw  the  labels  centred  on  the  bar  and  flush  left  } 

align. Horizontal  :=  GVHleft; 
align.  Vertical  :=  GWhalf  ; 

GSetTextAlign  (  align  ) ; 

GSetCharHeight  (  0.5  ); 

GSetTextColrlnd  (  1  ) ; 

WITH  window  DO 

expan  :=  (RightBound  -  LeftBound)  / 

(UpperBound  -  LowerBound) ; 

GSetCharExpan  (  expan  ) ;  {  Default  may  be  insufficient  } 

textpos.x  :=  -114.0; 
textpos.y  :=  1.2; 

GText  (textpos,  5,  'LABOR'); 

textpos.y  :=  3.2; 

GText  (textpos,  8,  'IRON  ORE'); 

textpos.y  :=  5.2; 

GText  (textpos,  12,  'COKE  OR  COAL'); 
textpos.y  :=  7.2; 

GText  (textpos,  15,  'PURCHASED  SCRAP'); 
textpos.y  :=  9.2; 

GText  (textpos,  11,  'OTHER  COSTS'); 
textpos.y  ;=  11.2; 

GText  (textpos,  12,  'OTHER  ENERGY'); 

{  Draw  the  top  and  bottom  tick  marks  (bottom  in  red)  } 

align. Horizontal  :=  GVHcentre; 
align. Vertical  :=  GWtop; 

GSetTextAlign  (  align  ) ; 

GSetTextColrlnd  (2) ; 
ticks  (  0.0,  -0.2  ) ; 


align. Horizontal  :=  GVHcentre; 
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align. Vertical  :=  GWbottom; 

GSetTextAlign  (  align  ) ; 

GSetTextColrlnd  (1); 
ticks  (  12.0,  12.2  ); 

{  Draw  the  title  text  in  bigger  characters  } 

textpos.x  :=  0.0; 
textpos.y  :=  -2.0; 

GText  (textpos,  15,  'Production  Cost'); 

align. Vertical  :=  GWtop; 

GSetTextAlign  (  align  ) ; 

GSetCharHeight  (  0.7  ); 

GText  (textpos,  length,  nation) ; 

GSetCharHeight  (  0.5  ); 

END;  {  border  } 

PROCEDURE  draw  (datal,  data2  :  bardata; 

size  :  INTEGER;  nation  :  GAString  ) ; 


VAR 


index 

pos 


:  INTEGER; 
:  REAL; 


BEGIN 


{  Draw  the  border  } 

border  (  size,  nation  )  ; 

{  Draw  the  black  bars  } 

GSetTextColrlnd  (  1  ) ; 
GSetFillColrlnd  (  1  ) ; 

GSetFilllnd  (  1  ) ; 

FOR  index  :=  1  TO  6  DO 
BEGIN 

pos  :=  2.0  *  (index-1)  +  1.6; 
bar  (  datal [ index] ,  pos  ); 
END;  {  for  } 

(  Draw  the  red  bars  } 

GSetTextColrlnd  (  2  ) ; 
GSetFillColrlnd  (  2  ) ; 

GSetFilllnd  (  2  ) ; 

FOR  index  :=  1  TO  6  DO 
BEGIN 

pos  :=  2.0  *  (index-1)  +  0.8; 
bar  (  data2 [ index] ,  pos  ); 
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END;  {  for  } 

END;  {  draw  } 

BEGIN  {  main  } 

conid  :=  ' /dev /tty  '; 

GOpenGKS  (  errout,  GCDefMemory  ) ; 
GOpenWs  (  wsid,  conid,  wstype  ) ; 
GActivateWs  (  wsid  ) ; 

{  Specify  the  window  for  the  chart  } 

WITH  window  DO 
BEGIN 

LeftBound  :=  -115.0; 

RightBound  :=  160.0; 

LowerBound  :=  -2.0; 

UpperBound  ; =  14.0; 

END;  {  with  } 

GSetWindow  (  1,  window  ); 
GSelectNormTran  (  1  ) ; 

{  Define  the  colours  to  be  used  } 

WITH  coir  DO 


BEGIN 

Red 

:=  0.0; 

Green 

:=  1.0; 

Blue 

:=  0.0; 

END;  {  with  } 

GSetColrRep 

(1, 1 , coir) ; 

WITH  coir  DO 
BEGIN 

Red 

:=  1.0; 

Green 

:=  0.0; 

END;  {  with  } 

GSetColrRep 

(1, 2 ,colr)  ; 

{  Use  bundled  attributes  except  for  fill  area  interior 
style  and  index  } 

asf list [GVLineType] 
asf list [GVLineWidth] 
asf list [GVLineColr] 
asf list [ GVMarkerType ] 
asf list [GVMarkerSize] 
asf 1 ist [ GVMarkerColr ] 
asf list [GVFontPrec] 
asf list [GVExpan] 
asf list [GVSpacing] 


=  GVBundled ; 

=  GVBundled; 

=  GVBundled; 

=  GVBundled; 

=  GVBundled; 

=  GVBundled; 

=  GVBundled; 

=  GVIndividual ; 
=  GVBundled; 
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asf list [GVTextColr] 
asf list [GVFillColr] 
asf list [GVFi 11 Interior ] 
asf 1 ist [GVFillStylelnd ] 

GSetASF  (asflist) ; 


GVBundled ; 
GVBundled ; 
GVIndividual ; 
GVIndividual ; 


{  Initialise  the  choice  device  } 


Program  IRON 


GInqChoiceDeviceSt  (wsid,  1,  error,  opmode,  echosw, 
choice,  prompt,  area,  datarec) ; 

prompt  : =  3 ; 

WITH  datarec  DO 
BEGIN 

Prompt  : =  3 ; 

R0003NumStrings  4; 

R0003ChoiceStrings [ 1 ] . StringLength  4; 

R0003ChoiceStrings [ 1 ] .CharString  := 

'U.S. 

R0003ChoiceStrings [ 2 ]. StringLength  :=  10; 
R0003ChoiceStrings [ 2 ] .CharString  := 

'W.  GERMANY 

R0003ChoiceStrings [ 3 ]. StringLength  :=  5; 
R0003ChoiceStrings [ 3 ] .CharString  := 

7 JAPAN 

R0003ChoiceStrings [ 4 ]. StringLength  :=  4; 
R0003ChoiceStrings [ 4 ] .CharString  := 

'EXIT 

END;  {  with  } 

GInitChoice  (wsid,  1,  choice,  prompt,  area,  datarec); 
{  Define  the  data  } 


usdatl [ 1 ] 

=  69.0;  usdat2 [ 1 ] 

=  72.0; 

usdatl [ 2 ] 

=  50.0;  usdat2[2] 

=  50.0; 

usdatl [ 3 ] 

=  15.0;  usdat2 [ 3 ] 

=  103.0; 

usdatl [ 4 ] 

=  53.0;  usdat2 [ 4 ] 

=  0.0; 

usdatl [ 5 ] 

=  57.0;  usdat2 [ 5 ] 

=  0.0; 

usdatl [ 6 ] 

=  150.0;  usdat2 [ 6 ] 

=  56.0; 

gdatl [ 1 ] 

=  65.0;  gdat2 [ 1 ] 

=  70.0; 

gdatl [ 2 ] 

=  42.0;  gdat2 [ 2 ] 

=  53.0; 

gdatl [ 3 ] 

=  3.0;  gdat2[3] 

=  102.0; 

gdatl [ 4 ] 

=  89.0;  gdat2 [ 4 ] 

=  0.0; 

gdatl [ 5 ] 

=  52.0;  gdat2 [ 5 ] 

=  0.0; 

gdatl [ 6 ] 

=  93.0;  gdat2 [ 6 ] 

=  49.0; 

jdatl [1] 

=  65.0;  jdat2 [ 1 ] 

=  70.0; 

jdatl [ 2 ] 

=  4  7.0;  j  dat2 [ 2 ] 

=  57.0; 

j  datl [ 3 ] 

=  2.0;  jdat2[3] 

=  105.0; 

jdatl [ 4 ] 

=  60.0;  jdat2[4] 

=  0.0; 
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jdatl [ 5 ]  :=  52.0;  jdat2[5]  :=  0.0; 

jdatl [ 6 ]  :=  55.0;  jdat2[6]  :=  41.0; 

{  Get  the  users  choice  (u.s.,  w.  germany,  japan,  or  exit  )  } 

REPEAT 

GReqChoice  (wsid, 1, status, choice) ; 

CASE  choice . ChoiceNum  OF 


1; 

draw  (usdatl,  usdat2 ,  4, 

'U.S. 

/  • 
/ 

2 ; 

draw  (gdatl,  gdat2,  10, 

'W.  Germany 

/  • 
/ 

3  : 

draw  (jdatl,  jdat2,  5, 

'Japan 

/  • 
/ 

4  ; 

f 

END;  {  case  ) 

UNTIL  (choice . ChoiceNum  >  3); 

{  Close  the  workstation  and  shut  down  GKS  } 

GDeactivateWs  (  wsid  ) ; 

GCloseWs  (  wsid  ) ; 

GCloseGKS ; 

END.  {  main  } 
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E3.  Program  MAP 


PROGRAM  MAP 


DESCRIPTION: 

This  program  reads  a  GKS  metafile  to  draw  a  map.  The 
primitives  in  each  region  are  in  a  separate  segment. 
The  user  can  then  use  a  pick  device  to  select  the 
various  regions.  A  sampled  choice  device  determines 
the  action  taken  with  the  selected  region.  The 
choice  number  assignments  are: 


1.  highlight  the  region 

2.  turn  off  highlighting 

3.  make  the  region  visible 

4.  make  the  region  invisible 

5.  exit 


CONFORMANCE: 

GKS  level:  lc 

The  implementation  must  support  at  least  one 
workstation  of  category  outin  and  one  of  category  mi 
(metafile  input) .  The  default  choice  device  must 
support  at  least  five  choices. 


************************************************************** 


PROGRAM  MAP  (output) ; 

CONST 

{  Implementation-specific  method  to  define  the 
implementation's  constants.  } 

$INCLUDE  'gks . pi 7  $ 

{  User  defined  constants  } 
metaid  =  2; 
wsid  =  1; 
wstype  =  1 ; 
mi  =  8  ; 


TYPE 


{  Implementation-specific  method  to  define  the  GKS  data  types.  } 
$INCLUDE  ,gks.p2/$ 


VAR 


choiceval 

conid 

datrec 


GRChoice ; 
GAConnld ; 


GRFileData ; 
GTErrorFileName ; 
INTEGER; 


fnam 

idrl 
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itype  :  INTEGER; 

miid  :  GAConnld; 

pickval  :  GRPick; 

stat  :  GEReqStatus; 

{  Implementation-specific  method  to  define  the  interface  to 
the  GKS  routines  } 

$INCLUDE  'gks.p3'$ 


{*************************************************************} 

BEGIN 


{  Open  GKS  and  activate  a  workstation.  } 

fnam  :=  1; 

conid  :=  '/dev/display ' > 

GOpenGKS  (  fnam,  GCDefMemory  ) ; 

GOpenWs  (  wsid,  conid,  wstype  ) ; 

GActivateWs  (  wsid  ) ; 

{  Set  the  choice  device  to  sample  mode.  } 

GSetChoiceMode  (  wsid,  1,  GVSample,  GVNoEcho  ); 
{  Open  the  metafile  input  workstation.  } 

miid  :=  'metainput  '; 

GOpenWs  (  metaid,  miid,  mi  ) ; 

{  Interpret  items  until  eof  item  is  read.  } 
REPEAT 

GGetltemType  (  metaid,  itype,  idrl  ) ; 

IF  (  itype  <>  0  )  THEN 
BEGIN 

GReadltem  (  metaid,  idrl,  datrec  ); 
GInterpretItem  (  itype,  idrl,  datrec  ); 
END;  {  if  } 

UNTIL  (itype  =  0) ; 

{  Close  the  metafile.  } 


GCloseWs  (  metaid  ) ; 

{  Allow  the  user  to  select  states  until  they  select 
the  'exit'  choice.  } 


REPEAT 

GReqPick  (  wsid,  1,  stat,  pickval  ); 
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IF  (  stat  =  GVStatusOk  )  THEN 
BEGIN 

{  See  which  choice  is  in  effect.  } 

GSampleChoice  (  wsid,  1,  choiceval  ); 

IF  (  choiceval . ChoiceStatus  =  GVStatusOk  )  THEN 
BEGIN 

CASE  choiceval . ChoiceNum  OF 
1:  GSetHighlight 

(  pickval . Segment ,  GVHighlighted  ); 

2:  GSetHighlight 

(  pickval . Segment ,  GVNormal  ); 

3:  GSetVis 

(  pickval . Segment ,  GVInvisible  ); 

4:  GSetVis 

(  pickval .  Segment ,  GWisible  ); 

5:  ; 

END;  {  case  } 

END;  {if  } 

END;  {  if  } 

UNTIL  (choiceval . ChoiceNum  =  5); 

{  Close  the  workstation  and  shut  down  GKS .  } 


GDeactivateWs  (  wsid  ) ; 
GCloseWs  (  wsid  ) ; 
GCloseGKS ; 


END.  {  main  } 
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E4.  Program  MANIPULATE 

{ 

PROGRAM  MANIPULATE 
DESCRIPTION: 

This  program  allows  the  user  to  create  an  object  and 
then  manipulate  the  object  by  changing  the  segment 
transformation . 


CONFORMANCE: 

GKS  level:  2b 

This  program  uses  the  conformant  array  versions  of 
GMessage  and  GText. 


PROGRAM  MANIPULATE  (  output  )  ; 
CONST 


{  Implementation-specific  method  to  define  the  implementation's 
constants.  } 

$INCLUDE  ' gks . pi ' $ 


{  User  defined  constants 


DeviceNum  = 
Display  = 
DisConn  = 
DisType  = 
errorfile  = 
LocatorDevice 
Plotter  = 
PloConn  = 
PloType  = 
segstore  - 
SegConn  = 
SegType  = 


1; 

l; 

'portl 

510; 

1; 

=  l; 

2 ; 

' port2 
1000 ; 
3; 

'null 


0; 


{device  number  for  input} 

(ws  identifier  for  display} 
{connection  for  display} 
{type  number  for  display} 
{file  for  error  handling} 
{device  number  for  input} 

{ws  identifier  for  plotter} 
{connection  for  plotter} 
{type  number  for  plotter} 

{ws  identifier  for  segstore} 
{connection  for  segstore} 
{type  number  for  segstore} 


TYPE 


{  Implementation-specific  method  to  define  the  GKS  data  types.  } 
$INCLUDE  'gks . p2 ' $ 


VAR 


{global  transformation  matrix} 
matrix  :  GAMatrix; 

{  Implementation-specific  method  to  define  the  interface  to  the 
GKS  routines  } 

$INCLUDE  'gks . p3 ' $ 
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{***********************************************************  j 

PROCEDURE  Initialise; 


(initialises  GKS  and  workstations} 


BEGIN 

GOpenGKS  (  errorfile,  GCDefMemory  ) ; 
GOpenWs  (  Display,  DisConn,  DisType  ) ; 
GOpenWs  (  segstore,  SegConn,  SegType  ) 
GOpenWs  (  Plotter,  PloConn,  PloType  ) ; 
GActivateWs  (  Display  ) ; 

GActivateWs  (  segstore  ) ; 

END;  (  initialise  } 


{***********************************************************} 
PROCEDURE  Close; 

{  Close  the  workstations  and  shut  down  GKS  } 

BEGIN 

GDeactivateWs  (  Display  ) ; 

GDeactivateWs  (  segstore  ) ; 

GCloseWs  (  Plotter  ) ; 

GCloseWs  (  segstore  ) ; 

GCloseWs  (  Display  ) ; 

GCloseGKS ; 

END;  (  close  } 

{***********************************************************} 
PROCEDURE  SetUpTrans; 

VAR 

window, 

viewport  :  GRBound ; 

BEGIN 


(initialise  window  data} 

WITH  window  DO 
BEGIN 

LeftBound  :=  0.0; 
RightBound  :=  100.0; 
LowerBound  : =  0.0; 
UpperBound  :=  100.0; 
END;  {  with  } 

(initialise  viewport  data} 
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WITH  viewport  DO 
BEGIN 

LeftBound  :=  0.05; 

RightBound  :=  0.95; 

LowerBound  :=  0.05; 

UpperBound  :=  0.95; 

END;  {  with  } 

{set  window,  viewport  and  viewport  input  priority) 

GSetWindow  (  1,  window  ); 

GSetViewport  (  1,  viewport  ); 

GSetViewportPriority  (  1,  0,  GVHigher  ); 

end;  {  SetUpTrans  } 


{***********************************************************} 


PROCEDURE  CreateObject  (  polygon  :  GTSeg  ) ; 


(create  an  object  interactively) 


VAR 

status 

stroke 

strokef ailed 


GEReqStatus ; 
GRInput ; 
boolean ; 


BEGIN 


(set  polyline  index  to  3) 
GSetPrimlnd  (  GVPolyline,  3  )  ; 


(create  the  required  polygon) 


strokef ailed  :=  TRUE; 

WHILE  strokefailed  DO 
BEGIN 

GReqlnput  (  GVStroke,  Display,  DeviceNum, 
status,  stroke  ) ; 

strokefailed  :=  ( status=GVStatusNone)  OR 
(stroke. Num>=GCMaxPoint) ; 


IF  strokefailed  THEN 
BEGIN 

GMessage  (  Display,  33, 

'stroke  not  successful  -  try  again7); 
GClearWs  (  Display,  GVConditionally  ) ; 

END;  {  if  } 

END;  {  while  ) 


GCreateSeg  (  polygon  ) ; 
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WITH  stroke  DO 
BEGIN 

GSelectNormTran  (  NormTranStroke  ) ; 
Points [Num+1 ]  :=  Points[l]; 

GPolyline  (  Num+1,  Points  ); 

END;  {  with  } 

GCloseSeg ; 

END;  {  CreateObject  } 


{***********************************************************} 


PROCEDURE  ShiftObject  (  polygon  :  GTseg;  var  continue  :  boolean  ) ; 
(does  segment  transformation  on  polygon  resulting  in  a  shift} 


VAR 

f ixedpoint 
locatorl , 
locator2 
outmatrix 
scale 
shift 
statusl , 
status2 


:  GRPoint; 

:  GRInput; 

:  GAMatrix; 

:  GRVector; 

:  GRVector; 

;  GERegStatus; 


BEGIN 

GReqlnput  (  GVLocator,  Display,  LocatorDevice , 

statusl,  locatorl  ); 

GReqlnput  (  GVLocator,  Display,  LocatorDevice, 

status2,  locator2  ); 

continue  :=  (statusl  =  GVStatusOK)  AND 
(status2  =  GVStatusOK) ; 

IF  continue  THEN 
BEGIN 

GSelectNormTran  (  locatorl . NormTranLocator  ); 


WITH  shift  DO 
BEGIN 

xValue  :=  locator2 . position . x  -  locatorl . position . x ; 
yValue  :=  locator2 . position . y  -  locatorl . position . y 
END;  {  with  } 

WITH  fixedpoint  DO 
BEGIN 
x  : =  0.0; 
y  : =  0.0 
END;  {  with  } 

WITH  scale  DO 
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BEGIN 

xValue  :=  1.0; 
yValue  :=  1.0; 

END;  {  with  } 

GAccumTran  (  matrix,  fixedpoint,  shift,  0.0,  scale, 

GVwc,  outmatrix  ) ; 
GSetSegTran  (  polygon,  outmatrix  ) ; 
matrix  ;=  outmatrix; 

END;  {  if  } 


END;  {  ShiftObject  } 


{***********************************************************} 

PROCEDURE  ScaleObject  (  polygon  :  GTseg; 

var  continue  ;  boolean  )  ; 


VAR 

fixedpoint 

outmatrix 

returnvalue , 

returnposition 

scale 

shift 

statusl , 

status2 


GRPoint ; 
GAMatrix ; 

GRInput ; 
GRVector ; 
GRVector ; 

GEReqStatus ; 


BEGIN 

{choose  scaling  from  valuator  input} 


GReqlnput  (  GWaluator,  Display,  DeviceNum, 

statusl,  returnvalue  ); 


{choose  fixed  point  from  request  locator) 


GReqlnput  (  GVLocator,  Display,  LocatorDevice , 

status2,  returnposition  ); 

continue  :=  (statusl  =  GVStatusOK)  AND 
(status2  =  GVStatusOK) ; 

IF  continue  THEN 
BEGIN 

WITH  shift  DO 
BEGIN 

xValue  :=  0.0; 
yValue  ;=  0.0 
END;  {  with  } 

WITH  returnposition  DO 
BEGIN 
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GSelectNormTran  (  NormTranLocator  ) ; 
fixedpoint  :=  Position; 

END;  {  with  } 

WITH  scale  DO 
BEGIN 

xValue  :=  returnvalue . Value ; 
yValue  :=  returnvalue . Value ; 

END;  {  with  } 

GAccumTran  (  matrix,  fixedpoint,  shift,  0.0,  scale, 

GVwc,  outmatrix  ) ; 
GSetSegTran  (  polygon,  outmatrix  ) ; 
matrix  :=  outmatrix; 

END;  {  if  } 

END;  {  ScaleObject  } 

{***********************************************************} 
PROCEDURE  InitValuator  (  low,  high  ;  real  ) ; 

{Initialises  Valuator  Device  to  required  range} 

VAR 

area 

datarecord 
echosw 
error 
initvalue 
mode 
prompt 
typereturn 

BEGIN 

(inquire  valuator  device  state) 

GInqInputDeviceSt  (  GWaluator,  Display,  DeviceNum, 

typereturn,  error,  mode,  echosw,  initvalue, 
prompt,  area,  datarecord  ) ; 

(reset  data  record} 

WITH  datarecord  DO 
BEGIN 

LowValue  :=  low; 

HighValue  :=  high; 

END;  {  with  } 

(reset  initial  input} 

WITH  initvalue  DO 


GRBound ; 
GRInputData ; 
GEEcho ; 
INTEGER; 
GRInput ; 
GEMode ; 
INTEGER; 
GEReturn ; 
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Value  :=  0.5  *  (low+high); 

{initialise  valuator} 

GInitInput  (  GWaluator,  Display,  DeviceNum, 

initvalue,  prompt,  area,  datarecord  ) ; 
END;  {  InitValuator  } 

{***********************************************************} 
PROCEDURE  InitTranMatrix ; 


{Initialise  tranf ormation  matrix} 


VAR 

angle 

f ixedpoint 

scale 

shift 


real ; 
GRPoint ; 
GRVector ; 
GRVector ; 


BEGIN 

WITH  f ixedpoint  DO 
BEGIN 
x  : =  0.0; 

0.0 


y  :  = 

END ;  { 

WITH  shift 
BEGIN 
xValue 
yValue 
END ;  { 

WITH  scale 
BEGIN 
xValue 
yValue 
END;  { 

GEvalTran 


with  } 

DO 

: =  0.0; 

:=  0.0 

with  } 

DO 

: =  1.0; 

: =  1.0; 

with  } 

f ixedpoint , 


shift,  0.0 


scale,  GVwc 


matrix  ) ; 


( 

END;  {  InitTranMatrix  } 


{*********************************************************** j 

PROCEDURE  Interaction  (  polygon  :  GTseg  ) ; 

CONST 

SHIFT  =  1; 

SCALE  =  2 ; 

QUIT  =  3 ; 
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VAR 

choice  :  GRInput; 
continue:  BOOLEAN; 
status  :  GEReqStatus; 

BEGIN 

InitTranMatrix ; 

{Initialise  the  valuator  device  to  return  values 
between  0.5  and  2.5} 

InitValuator  (  0.5,  2.5  ); 

REPEAT 

GReqlnput  (  GVChoice,  Display,  DeviceNum, 

status,  choice  ) ; 

continue  :=  status=GVStatusOK ; 

IF  continue  THEN 

CASE  choice . ChoiceNum  OF 

SHIFT  :  ShiftObject  (  polygon,  continue  ) ; 

SCALE  :  ScaleObject  (  polygon,  continue  ) ; 

QUIT  :  continue  :=  false; 

END;  {  case  } 

UNTIL  (not  continue) ; 

END;  {  Interaction  } 

{***********************************************************} 


PROCEDURE  UsePlotter  (  polygon  :  GTseg  ) ; 
VAR 

colour 
linerep 
position 
textrep 

BEGIN 

GDeactivateWs  (  Display  ) ; 
GDeactivateWs  (  segstore  ) ; 
GActivateWs  (  Plotter  ) ; 

WITH  colour  DO 


BEGIN 

Red 

:=  1.0; 

Green 

:=  0.0; 

Blue 

:=  0.0 

END ;  { 

with  } 

GSetColrRep  (  Plotter,  1,  colour  ); 


:  GRColr ; 

:  GRPrimRep; 
:  GRPoint; 

:  GRPrimRep; 
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WITH  linerep  DO 
BEGIN 

Prim  :=  GVPolyline; 

Ltype  : =  1 ; 

Width  :=  1.5; 

LColr  :=  1; 

END;  {  with  } 

GSetPrimRep  (  GVPolyline,  Plotter,  3,  linerep  ); 

WITH  textrep  DO 
BEGIN 

Prim  :=  GVText; 

WITH  fontprec  DO 
BEGIN 
font  :=  1; 

prec  ;=  GVStringPrec ; 

END;  {  with  } 

Expan  :=  0.0; 

Spacing  :=  0.0; 

TColr  :=  1; 

END;  {  with  textrep  } 

GSetPrimRep  (  GVText,  Plotter,  2,  textrep  ); 

GCopySegWs  (  Plotter,  polygon  ) ; 

GSetPrimlnd  (  GVText,  2  )  ; 

GSetCharHeight  (  0.1  ); 

WITH  position  DO 
BEGIN 
x  : =  0.5; 
y  : =  0.5 
END;  {  with  } 

GText  (  position,  17,  'This  is  a  polygon'  ); 

GDeactivateWs  (  Plotter  )  ; 

GActivateWs  (  Display  ) ; 

GActivateWs  (  segstore  ) ; 

END;  {  UsePlotter  } 

{***********************************************************} 
PROCEDURE  GeneratePolygon ; 

BEGIN 

Initialise ; 

SetUpTrans ; 

CreateObject  (  1  ) ; 

Interaction  (  1  )  ; 

UsePlotter  (  1  )  ; 

Close ; 

END;  {  GeneratePolygon  } 
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{***********************************************************} 

BEGIN  {  Main  } 

GeneratePolygon ; 


END.  {  Main  } 
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E5.  Program  SHOWLN 

{ 

PROGRAM  SHOWLN 


DESCRIPTION: 

This  program  contains  a 
module  and  demonstrates 
do  not  change  any  state 

CONFORMANCE : 

GKS  level:  ma 


typical  GKS  initialisation 
how  to  program  modules  which 
list  entries. 


************************************************************** 

} 

PROGRAM  SHOWLN  (input,  output) ; 

LABEL  99; 

CONST 

{  Implementation-specific  method  to  define  the 
implementation's  constants.  } 

$INCLUDE  'gks.pl'$ 

{  User  defined  constants  } 
wsid  =  1; 

TYPE 

(  Implementation-specific  method  to  define  the  GKS  data  types.  } 
$INCLUDE  'gks . p2 ' $ 

VAR 

wstype  :  GTWsType ; 

error_ind  :  INTEGER; 

{  Implementation-specific  method  to  define  the  interface  to 
the  GKS  routines  } 

$INCLUDE  'gks . p3 ' $ 

{*************************************************************} 

PROCEDURE  init_gks  (  VAR  wstype  :  GTWsType; 

VAR  error_ind  :  INTEGER) ; 

VAR 

category  :  GEWsCategory ; 

conid  :  GAConnld; 

done  :  BOOLEAN; 

index  :  INTEGER; 

num_types  :  GTIntl; 
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opstate  :  GEOpSt; 

size  :  INTEGER; 

ws_types  :  GAWsType ; 

BEGIN  {  init_gks  } 

{  Open  GKS  and  activate  a  workstation. 
GOpenGKS  (  GCDef ErrorLog ,  GCDef Memory  ) ; 


Program  SHOWLN 


(Inquire  the  available  workstation  types  and  print  them  } 
writeln 

('The  available  output  and  outin  workstation  types  are:'); 
GInqListWsTypes  (1,  size,  done,  error_ind, 

num_types,  ws_types) ; 

FOR  index  : =  1  TO  num_types  DO 
BEGIN 

GInqWsCategory  (ws_types [ index] ,  error_ind,  category); 

IF  ( (category  =  GVOutput)  or  (category  =  GVOutln) )  THEN 
writeln  (ws_types [ index] ) ; 

END;  {  for  } 


{  Choose  one  workstation  and  open  and  activate  it  } 
writeln 

('Please  enter  connection  identifier  and  workstation  type'); 
readln  (conid,  wstype) ; 

GOpenWs  (  wsid,  conid,  wstype  ) ; 

GActivateWs  (  wsid  ) ; 


{  Check  the  operating  state  to  ensure  successful 
opening  and  activating  } 


GInqOpSt  (opstate) ; 

IF  (opstate  <>  GVwsac)  THEN 
error_ind  :=  3 

ELSE 

error_ind  :=  0; 

END;  {  init_gks  } 

{*************************************************************} 

PROCEDURE  line_demo  (  wstype  :  GTWsType ; 

VAR  errorind  :  INTEGER) ; 


LABEL  98; 


VAR 

align  :  GRAlign; 
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asf_indiv, 
asf_l ist 
char_count 
char_list 
dist 

font_prec 

height 

index 

indiv_attr 

line_type 

last 

line_facil 

norm_tran 

opstate 

prim_attr 

up_vect 

upd_state 

req_win, 

cur_win , 

req_view, 

cur  view 


GAASF; 

GTMaxString ; 

GAString; 

REAL; 

GRFontPrec ; 
REAL; 
INTEGER; 
GAPrimRep ; 
INTEGER; 
BOOLEAN ; 
GRLineFacil ; 
GTIntO ; 
GEOpSt ; 
GRPrimAttr ; 
GRVector ; 
GEWsTran ; 


GRBound ; 


point_list  :  GAPointArray ; 

BEGIN  {  line_demo  } 

{  Check  the  operating  state  value  } 

GInqOpSt  (opstate) ; 

IF  (opstate  <  GVwsac)  THEN 
BEGIN 

error_ind  :=  5; 
goto  98; 

END; 

{  Inquire  workstation  transformation  } 

GInqWsTran  (  wsid,  error_ind,  upd_state,  req_win,  cur_win, 
req_view,  cur_view  ) ; 

IF  (error_ind  <>  0)  THEN  goto  98; 

{  Inquire  polyline  facilities  } 

GInqPolylineFacil  (  wsid,  1,  last,  error_ind,  line_facil  ); 

{  Save  normalization  transformation  number, 
relevant  polyline  and  text  attributes  ) 

GInqCurNormTranNum  (  error_ind,  norm_tran  ) ; 
GInqCurIndivAttr  (  error_ind,  indiv_attr,  asf_list  ) ; 
GInqCurPrimAttr  (  error_ind,  prim_attr  ) ; 

{  Set  unity  normalization  transformation, 
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individual  aspect  source  flags, 

linewidth  scale  factor  1.0  and  polyline  colour  index  1, 
reasonable  text  attributes  } 

asf_indiv [ GVLineType ]  := 

asf_indiv[GVLineWidth]  := 

asf_indiv [GVLineColr ]  := 

asf_indiv [GVMarkerType ]  := 

asf_indiv [ GVMarkerSize ]  := 

asf_indiv [GVMarkerColr ]  := 

asf_indiv [GVFontPrec ] 
asf_indiv [ GVExpan ]  := 

asf_indiv [ GVSpacing ]  := 

asf_indiv[GVTextColr] 
asf_indiv [GVFillColr ]  := 

asf_indiv [GVFilllnterior ]  := 

asf_indiv[GVFillStyleInd]  := 

up_vect . xValue  :=  0.0; 
up_vect . yValue  :=  1.0; 

al ign . Horizontal  :  =  GVHleft; 
al  ign  .  Vertical  :=  GWhalf; 

f ont_prec . Font  :  =  1; 
f ont_prec . Prec  :  =  GVCharPrec; 

GSelectNormTran  (  0  )  ; 

GSetASF  (  asf_indiv  ) ; 

GSetLineWidthScale  (  1.0  ); 

GSetLineColrlnd  (  1  )  ; 

GSetCharUpVector  (  up_vect  ) ; 

GSetTextPath  (  GVRight  ) ; 

GSetTextAl ign  (  align  ) ; 

GSetTextFontPrec  (  font_prec  ) ; 

GSetCharExpan  (  1.0  ); 

GSetCharSpacing  (  0.0  ); 

GSetTextColrlnd  (  1  )  ; 

{  Compute  distance  between  lines  } 

dist  :=  (  cur_win . UpperBound  -  cur_win . LowerBound  )  / 

1 ine_f acil . NumTypes ; 

{  Set  character  height  to  half  of  the  distance  between  lines, 
but  not  more  than  l/20th  of  the  height  of  the  current 
workstation  viewport  } 

height  (  cur_win . UpperBound  -  cur_win . LowerBound  )  /  20.0; 
IF  (  height  >  (dist  /  2.0)  )  THEN  height  :=  dist/2.0; 

GSetCharHeight  (  height  )  ; 


GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
GVIndividual ; 
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{  Lines  stretch  from  the  left  bound  to  the  middle  of  the 
current  workstation  viewport  } 

point_list [ 1] . X  :=  cur_win.LeftBound; 

point_list [2 ] .X  :=  (cur_win. LeftBound  +  cur_win . RightBound)  / 

2.0; 

point_list [ 1 ] . Y  :=  cur_win . UpperBound  -  dist/2.0; 

{  Loop  over  available  linetypes  } 

FOR  index  :=  1  TO  line_facil . NumTypes  DO 
BEGIN 


{  Draw  line  } 

line_type  :=  line_facil . lines [ index] ; 

GSetLineType  (  line_type  ) ; 

point_l ist [ 2 ] . Y  ; =  point_l ist [ 1 ] . Y ; 

GPolyline  (  2,  point_list  ); 

point_list [ 1 ] . Y  ;=  point_list [ 1 ] . Y  -  dist; 

{  Annotate  linetype  } 
char_count  :=  1; 

IF  ( line_type  <  0)  THEN 
BEGIN 

char_list [ char_count ]  ;= 

char_count  :=  char_count  +  1; 
line_type  :=  -line_type; 

END;  {  if  } 

REPEAT 

char_list [char_count]  :=  chr ( 1 ine_type  +  ord('O')); 
char_count  :=  char_count  +  1; 
line_type  :=  line_type  DIV  10; 

UNTIL  ( 1 ine_type  =  0) ; 

GText  (  point_list [ 2 ] ,  char_count,  char_list  ); 

END;  {  for  } 

{  Restore  normalization  transformation  and  attributes  } 

GSelectNormTran  (  norm_tran  ) ; 

GSetASF  (  asf_list  ) ; 

GSetLineWidthScale  (  indiv_attr [GVPolyline] .Width  ) ; 
GSetLineColrlnd  (  indiv_attr [GVPolyline] . LColr  ); 
GSetCharHeight  (  prim_attr . text . Height  ); 

GSetCharUpVector  (  prim_attr . text . UpVector  ); 

GSetTextPath  (  prim_attr . text . Path  ); 

GSetTextAlign  (  prim_attr . text . A1 ign  ); 

GSetTextFontPrec  (  indiv_attr [ GVText ] . FontPrec  ); 
GSetCharExpan  (  indiv_attr [ GVText ]. Expan  ); 

GSetCharSpacing  (  indiv_attr [ GVText ]. Spacing  ); 


152 


Appendix 


Appendix  E  Program  SHOWLN 

GSetTextColrlnd  (  indiv_attr [GVText ] . TColr  ); 
error  ind  :=  0; 


98 :  ; 

END;  {  line_demo  } 

{*************************************************************  j 

PROCEDURE  close_gks; 

BEGIN  {  close_gks  } 

{  Close  the  workstation  and  shut  down  GKS .  } 

GDeactivateWs  (  wsid  ) ; 

GCloseWs  (  wsid  ) ; 

GCloseGKS ; 

END;  {  close_gks  } 

{*************************************************************} 
BEGIN  {  main  } 

{  Call  the  initialisation  module  } 

init_gks  (wstype,  error_ind) ; 
if  (error_ind  <>  0)  THEN 
BEGIN 

GEmergencyCloseGKS ; 
goto  99; 

END; 

{  Call  demonstration  module  for  linetype  capabilities  } 

line_demo  (wstype,  error_ind) ; 
if  (error_ind  <>  0)  THEN 
BEGIN 

GEmergencyCloseGKS ; 
goto  99; 

END; 

{  Shut  down  GKS  } 

close_gks ; 

99:  ; 

END.  {  main  } 
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(This  Appendix  is  not  part  of  ANSI  X3. 124.2-1988,  but  is  included  for  information  only.) 


FI.  GKS  Functions 

ACCUMULATE  TRANSFORMATION 

MATRIX . 93 

ACTIVATE  WORKSTATION . 38 

ASSOCIATE  SEGMENT  WITH 

WORKSTATION . 50 

AWAIT  EVENT . 59 

CELL  ARRAY . 42,102 

CLEAR  WORKSTATION . 39 

CLOSE  GKS . 38 

CLOSE  SEGMENT . 49 

CLOSE  WORKSTATION . 38 

COPY  SEGMENT  TO  WORKSTATION . 50 

CREATE  SEGMENT . 49 

DEACTIVATE  WORKSTATION . 38 

DELETE  SEGMENT . 49 

DELETE  SEGMENT  FROM 

WORKSTATION . 50 

EMERGENCY  CLOSE  GKS . 93 

ERROR  HANDLING . 93 

ERROR  LOGGING . 93 

ESCAPE . 40,100 

EVALUATE  TRANSFORMATION 

MATRIX . 93 

FILL  AREA . 41,101 

FLUSH  DEVICE  EVENTS . 60 

GENERALIZED  DRAWING  PRIMITIVE 

(GDP) . 42,102 

GET  CHOICE . 60,119 

GET  ITEM  TYPE  FROM  GKSM . 62 

GET  LOCATOR . 60,119 

GET  PICK . 61,119 

GET  STRING . 61,119 

GET  STROKE . 60,119 

GET  VALUATOR . 60,119 

INITIALISE  CHOICE . 53,116 

INITIALISE  LOCATOR . 51,116 

INITIALISE  PICK . 53,116 

INITIALISE  STRING . 54,116 

INITIALISE  STROKE . 52,116 

INITIALISE  VALUATOR . 52,116 

INQUIRE  ASPECT  SOURCE  FLAGS . 71 


INQUIRE  CHARACTER  BASE  VECTOR  ..66 
INQUIRE  CHARACTER  EXPANSION 


FACTOR . 70 

INQUIRE  CHARACTER  HEIGHT . 65 

INQUIRE  CHARACTER  SPACING . 70 

INQUIRE  CHARACTER  UP  VECTOR . 66 

INQUIRE  CHARACTER  WIDTH . 66 

INQUIRE  CHOICE  DEVICE  STATE  ....81,121 

INQUIRE  CLIPPING . 72 

INQUIRE  COLOUR  FACILITIES . 86 

INQUIRE  COLOUR  REPRESENTATION  ..78 
INQUIRE  CURRENT  INDIVIDUAL 

ATTRIBUTE  VALUES . 68 

INQUIRE  CURRENT  NORMALIZATION 

TRANSFORMATION  NUMBER . 71 

INQUIRE  CURRENT  PICK  IDENTIFIER... 68 
INQUIRE  CURRENT  PRIMITIVE 

ATTRIBUTE  VALUES . 64 

INQUIRE  DEFAULT  CHOICE  DEVICE 

DATA . 90,123 

INQUIRE  DEFAULT  DEFERRAL  STATE 

VALUES . 83 

INQUIRE  DEFAULT  LOCATOR  DEVICE 

DATA . 88,123 

INQUIRE  DEFAULT  PICK  DEVICE 

DATA . 90,123 

INQUIRE  DEFAULT  STRING  DEVICE 

DATA . 91,123 

INQUIRE  DEFAULT  STROKE  DEVICE 

DATA . 89,123 

INQUIRE  DEFAULT  VALUATOR  DEVICE 

DATA . 89,123 

INQUIRE  DISPLAY  SPACE  SIZE . 82 

INQUIRE  DYNAMIC  MODIFICATION  OF 

SEGMENT  ATTRIBUTES . 88 

INQUIRE  DYNAMIC  MODIFICATION  OF 

WORKSTATION  ATTRIBUTES . 83 

INQUIRE  FILL  AREA  COLOUR  INDEX... 71 

INQUIRE  FILL  AREA  FACILITIES . 85,122 

INQUIRE  FILL  AREA  INDEX . 67 

INQUIRE  FILL  AREA  INTERIOR  STYLE  .71 
INQUIRE  FILL  AREA 

REPRESENTATION . 77,121 

INQUIRE  FILL  AREA  STYLE  INDEX . 71 

INQUIRE  GENERALIZED  DRAWING 
PRIMITIVE . 87 
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INQUIRE  INPUT  QUEUE  OVERFLOW . 92 

INQUIRE  LEVEL  OF  GKS . 63 

INQUIRE  LINETYPE . 68 

INQUIRE  LINEWIDTH  SCALE  FACTOR  ..68 
INQUIRE  LIST  OF  AVAILABLE 
GENERALIZED  DRAWING 

PRIMITIVES . 87,111 

INQUIRE  LIST  OF  AVAILABLE 

WORKSTATION  TYPES . 63,104 

INQUIRE  LIST  OF  COLOUR  INDICES  78,110 
INQUIRE  LIST  OF  FILL  AREA 

INDICES . 77,108,120 

INQUIRE  LIST  OF  NORMALIZATION 

TRANSFORMATION  NUMBERS . 72,105 

INQUIRE  LIST  OF  PATTERN 

INDICES . 77,109 

INQUIRE  LIST  OF  POLYLINE 

INDICES . 74,106,120 

INQUIRE  LIST  OF  POLYMARKER 

INDICES . 75,107,120 

INQUIRE  LIST  OF  TEXT 

INDICES . 76,107,120 

INQUIRE  LOCATOR  DEVICE  STATE. 79, 121 
INQUIRE  MAXIMUM  LENGTH  OF 

WORKSTATION  STATE  TABLES . 87 

INQUIRE  MAXIMUM  NORMALIZATION 

TRANSFORMATION  NUMBER . 63 

INQUIRE  MORE  SIMULTANEOUS 

EVENTS . 73 

INQUIRE  NAME  OF  OPEN  SEGMENT . 72 

INQUIRE  NORMALIZATION 

TRANSFORMATION . 72 

INQUIRE  NUMBER  OF  AVAILABLE 

LOGICAL  INPUT  DEVICES . 88 

INQUIRE  NUMBER  OF  SEGMENT 

PRIORITIES  SUPPORTED . 87 

INQUIRE  OPERATING  STATE  VALUE.... 62 

INQUIRE  PATTERN  FACILITIES . 86 

INQUIRE  PATTERN  REFERENCE  POINT  67 
INQUIRE  PATTERN 

REPRESENTATION . 78,109 

INQUIRE  PA  TTERN  SIZE . 67 

INQUIRE  PICK  DEVICE  STATE . 81,121 

INQUIRE  PIXEL . 92 

INQUIRE  PIXEL  ARRAY . 92,112 

INQUIRE  PIXEL  ARRAY  DIMENSIONS  ...92 
INQUIRE  POLYLINE  COLOUR  INDEX  ....69 

INQUIRE  POLYLINE  FACILITIES . 83,122 

INQUIRE  POLYLINE  INDEX . 65 

INQUIRE  POLYLINE 

REPRESENTATION . 74,121 

INQUIRE  POLYMARKER  COLOUR 


INDEX . 69 

INQUIRE  POLYMARKER 

FACILITIES . 84,122 

INQUIRE  POLYMARKER  INDEX . 65 

INQUIRE  POLYMARKER 

REPRESENTATION . 75 , 121 

INQUIRE  POLYMARKER  SIZE 

SCALE  FACTOR  . 69 

INQUIRE  POLYMARKER  TYPE . 69 

INQUIRE  PREDEFINED  COLOUR 

REPRESENTATION . 86 

INQUIRE  PREDEFINED  FILL  AREA 

REPRESENTATION . 85,122 

INQUIRE  PREDEFINED  PATTERN 

REPRESENTATION . 86,111 

INQUIRE  PREDEFINED  POLYLINE 

REPRESENTATION . 83,122 

INQUIRE  PREDEFINED  POLYMARKER 

REPRESENTATION . 84,122 

INQUIRE  PREDEFINED  TEXT 

REPRESENTATION . 85,122 

INQUIRE  SEGMENT  ATTRIBUTES . 91 

INQUIRE  SET  OF  ACTIVE 

WORKSTATIONS . 64,105 

INQUIRE  SET  OF  ASSOCIATED 

WORKSTATIONS . 91,112 

INQUIRE  SET  OF  OPEN 

WORKSTATIONS . 64 , 1 05 

INQUIRE  SET  OF  SEGMENT  NAMES 

IN  USE . 73,106 

INQUIRE  SET  OF  SEGMENT  NAMES 

ON  WORKSTATION . 79,110 

INQUIRE  STRING  DEVICE  STATE . 82,121 

INQUIRE  STROKE  DEVICE  ST  ATE.... 80, 121 

INQUIRE  TEXT  ALIGNMENT . 67 

INQUIRE  TEXT  COLOUR  INDEX  . 70 

INQUIRE  TEXT  EXTENT . 76,108 

INQUIRE  TEXT  FACILITIES . 84,122 

INQUIRE  TEXT  FONT  AND  PRECISION  ..70 

INQUIRE  TEXT  INDEX . 65 

INQUIRE  TEXT  PATH . 66 

INQUIRE  TEXT  REPRESENTATION  ..76,121 
INQUIRE  VALUATOR  DEVICE 

STATE . 80,121 

INQUIRE  WORKSTATION  CATEGORY... 82 
INQUIRE  WORKSTATION 

CLASSIFICATION . 82 

INQUIRE  WORKSTATION  CONNECTION 

AND  TYPE . 73 

INQUIRE  WORKSTATION  DEFERRAL 
AND  UPDATE  STATES . 74 


INQUIRE  WORKSTATION  MAXIMUM 
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NUMBERS . 63 

INQUIRE  WORKSTATION  STATE . 73 

INQUIRE  WORKSTATION 

TRANSFORMATION . 79 

INSERT  SEGMENT . 50 

INTERPRET  ITEM . 62 

MESSAGE . 39,99 

OPEN  GKS . 38 

OPEN  WORKSTATION . 38 

POLYLINE . 41,100 

POLYMARKER . 41,101 

READ  ITEM  FROM  GKSM . 62 

REDRAW  ALL  SEGMENTS  ON 

WORKSTATION . 39 

RENAME  SEGMENT . 49 

REQUEST  CHOICE . 57,118 

REQUEST  LOCATOR . 56,118 

REQUEST  PICK . 57,118 

REQUEST  STRING . 58,118 

REQUEST  STROKE . 56,118 

REQUEST  VALUATOR . 57,118 

SAMPLE  CHOICE . 59,119 

SAMPLE  LOCATOR . 58,119 

SAMPLE  PICK . 59,119 

SAMPLE  STRING . 59,119 

SAMPLE  STROKE . 58,119 

SAMPLE  VALUATOR . 58,119 

SELECT  NORMALIZATION 

TRANSFORMATION . 48 

SET  ASPECT  SOURCE  FLAGS . 46 

SET  CHARACTER  EXPANSION  FACTOR  44 

SET  CHARACTER  HEIGHT . 45 

SET  CHARACTER  SPACING . 44 

SET  CHARACTER  UP  VECTOR . 45 

SET  CHOICE  MODE . 55,117 

SET  CLIPPING  INDICATOR . 48 

SET  COLOUR  REPRESENTATION . 48 

SET  DEFERRAL  STATE . 39 

SET  DETECTABILITY . 51 

SET  FILL  AREA  COLOUR  INDEX . 46 

SET  FILL  AREA  INDEX . 45,115 

SET  FILL  AREA  INTERIOR  STYLE . 45 

SET  FILL  AREA  REPRESENT ATION..47, 116 

SET  FILL  AREA  STYLE  INDEX . 45 

SET  HIGHLIGHTING . 51 

SET  LINETYPE . 43 

SET  LINEWIDTH  SCALE  FACTOR . 43 

SET  LOCATOR  MODE . 54,117 

SET  MARKER  SIZE  SCALE  FACTOR . 44 

SET  MARKER  TYPE . 43 

SET  PATTERN  REFERENCE  POINT . 46 

SET  PATTERN  REPRESENTATION.... 47, 103 


SET  PATTERN  SIZE . 46 

SET  PICK  IDENTIFIER . 46 

SET  PICK  MODE . 55,117 

SET  POLYLINE  COLOUR  INDEX . 43 

SET  POLYLINE  INDEX . 43,115 

SET  POLYLINE  REPRESENTATION... 46, 116 

SET  POLYMARKER  COLOUR  INDEX . 44 

SET  POLYMARKER  INDEX . 43,115 

SET  POLYMARKER 

REPRESENTATION . 47,116 

SET  SEGMENT  PRIORITY . 51 

SET  SEGMENT  TRANSFORMATION . 50 

SET  STRING  MODE . 56,117 

SET  STROKE  MODE . 54,117 

SET  TEXT  ALIGNMENT . 45 

SET  TEXT  COLOUR  INDEX . 44 

SET  TEXT  FONT  AND  PRECISION . 44 

SET  TEXT  INDEX . 44,115 

SET  TEXT  PATH . 45 

SET  TEXT  REPRESENTATION . 47,116 

SET  VALUATOR  MODE . 55,117 

SET  VIEWPORT . 48 

SET  VIEWPORT  INPUT  PRIORITY . 48 

SET  VISIBILITY . 50 

SET  WINDOW . 48 

SET  WORKSTATION  VIEWPORT . 49 

SET  WORKSTATION  WINDOW . 49 

TEXT . 41,101 

UPDATE  WORKSTATION . 39 

WRITE  ITEM  TO  GKSM . 61,104 

F2.  Pascal  Functions 

GAccumTran  . 93 

GActivateWs . 38 

GAssocSegWs . 50 

GAwaitEvent . 59 

GCell  Array . 42,102 

GClearWs . 39 

GCloseGKS . 38 

GCloseSeg . 49 

GCIoseWs . 38 

GCopySegWs . 50 

GCreateSeg . 49 

GDeactivateWs . 38 

GDelSeg . 49 

GDelSegWs . 50 

GEmergencyCloseGKS . 93 

GErrorHandling . 93 

G  Error  Logging . 93 

GEscape . 40 

GEscapeGeneralized . 40,100 

GEvalTran . 93 
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GFill . 41,101 

GFlushDeviceEvents . 60 

GGDP . 42,102 

GGDPGeneralized . 42,103 

GGetChoice . 60 

GGetlnput . 119 

GGetltemType . 62 

GGetLocator . 60 

GGetPick . 61 

GGetString . 61 

GGetStroke . 60 

GGetValuator . 60 

GInitChoice . 53 

GInitInput . 116 

GInitLocator . 51 

GInitPick . 53 

GInitString . 54 

GInitStroke . 52 

GInitValuator . 52 

GInqActiveWs . 64,105 

GInqASF . 71 

GInqAssocWs . 91,112 

GInqCharBase  Vector . 66 

GInqCharExpan . 70 

GInqCharHeight . 65 

GInqCharSpacing . 70 

GInqCharUpVector . 66 

GInqCharWidth . 66 

GInqChoiceDeviceSt . 81 

GInqClip . 72 

GlnqCoirFacil . 86 

GlnqColrRep . 78 

GInqCurIndivAttr . 68 

GInqCurNormTranNum . 71 

GInqCurPickId . 68 

GInqCurPrimAttr . 64 

GInqDefChoiceDeviceData . 90 

GInqDefDeferSt . 83 

GInqDefInputDeviceData . 123 

GInqDefLocatorDeviceData . 88 

GInqDefPickDe  vice  Data . 90 

GInqDefStringDeviceData . 91 

GInqDefStrokeDeviceData . 89 

GInqDefValuatorDeviceData . 89 

GInqDisplaySize . 82 

GInqDynModSegAttr . 88 

GInqDynModWsAttr . 83 

GInqFillColrInd . 71 

GInqFillFacil . 85 

GInqFillInd . 67 

GInqFillIntStyle . 71 

GInqFillRep . 77 
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GInqFillStyleInd . 71 

GInqGDP . 87 

GInqInputDcviceSt . 121 

GInqInputOverflow . 92 

GInqLevelGKS . 63 

GInqLineColrInd . 69 

GInqLineInd . 65 

GInqLincType . 68 

GInqLineWidthScale . 68 

GInqListColrInd . 78,110 

GInqListFillInd . 77,108 

GInqListGDP . 87,1 11 

GInqListNormTranNum  . 72,105 

GInqListPatternInd . 77,109 

GInqListPolylineInd . 74,106 

GInqListPolymarkerInd  . 75,107 

GInqListPrimInd . 120 

GInqListTextInd . 76,107 

GInqListWsTypes . 63,104 

GInqLocatorDcviceSt . 79 

GInqMarkerColrInd . 69 

GInqMarkerInd . 65 

GInqMarkerSizeScale . 69 

GInqMarkerType . 69 

GInqMaxNormTranNum . 63 

GInqMaxWsSt . 87 

GInqMoreEvents . 73 

GInqNormTran . 72 

GInqNumInputDevices . 88 

GInqNumSegPriorities . 87 

GInqOpenSeg . 72 

GInqOpenWs . 64,105 

GInqOpSt . 62 

GInqPatternFacil . 86 

GInqPattemRefPoint . 67 

GInqPatternRep . 78,109 

GInqPattemSize . 67 

GInqPickDeviceSt . 81 

GInqPixel . 92 

GInqPixel  Array . 92,112 

GInqPixelArrayDim . 92 

GInqPolylineFacil . 83 

GInqPolylineRep . 74 

GInqPolymarkerFacil . 84 

GInqPolymarkerRep . 75 

GlnqPredColrRep . 86 

GInqPredFillRep . 85 

GInqPredPattcrnRep . 86,1 1 1 

GInqPredPolylineRep . 83 

GInqPredPolymarkerRep . 84 

GInqPredPrimRep . 122 

GInqPredTextRep . 85 
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GInqPrimFacil . 122 

GInqPrimRep . 121 

GInqSegAttr . 91 

GInqSegNames . 73,106 

GInqSegNamesWs . 79,110 

GInqStringDeviceSt . 82 

GInqStrokeDeviceSt . 80 

GInqText  Align . 67 

GInqTextColrInd . 70 

GInqTextExtent . 76,108 

GInqTextFacil . 84 

GInqTextFontPrec . 70 

GInqTextInd . 65 

GInqTextPath . 66 

GInqTextRep . 76 

GInqValuatorDeviceSt . 80 

GInqWsCategory . 82 

GInqWsClass . 82 

GInqWsConnType . 73 

GInqWsDeferUpdSt . 74 

GInqWsMaxNum . 63 

GInqWsSt . 73 

GInqWsTran . 79 

GInsertSeg . 50 

GInterpretItem . 62 

GMessage . 39,99 

GOpenGKS . 38 

GOpenWs . 38 

GPolyline . 41,100 

GPolymarker . 41,101 

GReadltem . 62 

GRedrawSegWs . 39 

GRenameSeg . 49 

GReqChoice . 57 

GReqlnput . 118 

GReqLocator . 56 

GReqPick . 57 

GReqString . 58 

GReqStroke . 56 

GReqValuator . 57 

GSampleChoice . 59 

GSamplelnput . 119 

GSampleLocator . 58 

GSamplePick . 59 

GSampleString . 59 

GSampleStroke . 58 

GSampleValuator . 58 

GSelectNormTran . 48 

GSetASF . 46 

GSetCharExpan . 44 

GSetCharHeight . 45 

GSetCharSpacing . 44 
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GSetCharUpVector . 45 

GSetChoiceMode . 55 

GSetClip . 48 

GSetColrRep . 48 

GSetDeferSt . 39 

GSetDet . 51 

GSetFillColrlnd . 46 

GSetFilllnd . 45 

GSetFilllntStyle . 45 

GSetFillRep . 47 

GSetFillStylelnd . 45 

GSetHighlight . 51 

GSetlnputMode . 117 

GSetLineColrlnd . 43 

GSetLineType . 43 

GSetLineWidthScale . 43 

GSetLocatorMode . 54 

GSetMarkerColrlnd . 44 

GSetMarkerSizeScale . 44 

GSetMarkerType . 43 

GSetPattemRefPoint . 46 

GSetPattemRep . 47,103 

GSetPatternSize . 46 

GSetPickld . 46 

GSetPickMode . 55 

GSetPolylinelnd . 43 

GSetPolylineRep . 46 

GSetPolymarkerlnd . 43 

GSetPolymarkerRep . 47 

GSetPrimlnd . 115 

GSetPrimRep . 116 

GSetSegPriority . 51 

GSetSegTran . 50 

GSetStringMode . 56 

GSetStrokeMode . 54 

GSetTextAlign . 45 

GSetTextColrlnd . 44 

GSetTextFontPrec . 44 

GSetTextlnd . 44 

GSetTextPath . 45 

GSetTextRep . 47 

GSetValuatorMode . 55 

GSetViewport . 48 

GSetViewportPriority . 48 

GSetVis . 50 

GSetWindow . 48 

GSetWsViewport . 49 

GSetWsWindow . 49 

GText . 41,101 

GUpdWs . 39 

GWriteltem . 61 

GWriteltemGeneralized . 61,104 
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X3. 113-1987  Programming  Language  FULL  BASIC 
X3. 114-1984  Alphanumeric  Machines;  Coded  Character  Sets  for 
Keyboard  Arrangements  in  ANSI  X4.23-1982  and  X4.22-1983 
X3. 115-1984  Unformatted  80  Megabyte  Trident  Pack  for  Use 
at  370  tpi  and  6000  bpi  (General,  Physical,  and  Magnetic  Charac¬ 
teristics) 

X3.1 16-1986  Recorded  Magnetic  Tape  Cartridge,  4-Track,  Serial 
0.250  Inch  (6.30  mm)  6400  bpi  (252  bpmm),  Inverted  Modified 
Frequency  Modulation  Encoded 

X3. 117-1984  Printable/lmage  Areas  for  Text  and  Facsimile  Com¬ 
munication  Equipment 

X3. 118-1984  Financial  Services  —  Personal  Identification  Number 
-  PIN  Pad 

X3. 119-1984  Contact  Start/Stop  Storage  Disk,  158361  Flux  Trans¬ 
itions  per  Track,  8.268  Inch  (210  mm)  Outer  Diameter  and  3.937 
inch  (100  mm)  Inner  Diameter 
X3. 120-1984  Contact  Start/Stop  Storage  Disk 
X3. 121-1984  Two-Sided,  Unformatted,  8-Inch  (200-mm),  48-tpi, 
Double-Density,  Flexible  Disk  Cartridge  for  13  262  ftpr  Two-Headed 
Application 

X3. 122-1986  Computer  Graphics  Metafile  for  the  Storage  and 
Transfer  of  Picture  Description  Information 
X3. 124-1985  Graphical  Kernel  System  (GKS)  Functional 
Description 

X3. 124. 1-1985  Graphical  Kernel  System  (GKS)  FORTRAN 
Binding 

X3. 124.2-1988  Graphical  Kernel  System  (GKS)  PASCAL  Binding 
X3. 125-1985  Two-Sided,  Double-Density,  Unformatted  5.25-Inch 
(1 30-mm),  48-tpi  (1,9-tpmm),  Flexible  Disk  Cartridge  for  7958 
bpr  Use 

X3. 126-1986  One- or  Two-Sided  Double-Density  Unformatted 
5.25-Inch  (1  30-mm),  96  Tracks  per  Inch,  Flexible  Disk  Cartridge 
X3. 127-1987  Unrecorded  Magnetic  Tape  Cartridge  for  Information 
Interchange 

X3. 128-1986  Contact  Start-Stop  Storage  Disk  —  83  000  Flux 
Transitions  per  Track,  130-mm  (5.1 18-Inch)  Outer  Diameter  and 
40-mm  (1 .575-Inch)  Inner  Diameter 

X3. 129-1986  Intelligent  Peripheral  Interface,  Physical  Level 
X3. 130-1986  Intelligent  Peripheral  Interface,  Logical  Device 
Specific  Command  Sets  for  Magnetic  Disk  Drive 
X3. 131-1986  Small  Computer  Systems  Interface 
X3. 132-1987  Intelligent  Peripheral  Interface  —  Logical  Device 
Generic  Command  Set  for  Optical  and  Magnetic  Disks 


X3. 133-1986  Database  Language  —  NDL 

X3. 135-1986  Database  Language  —  SQL 

X3. 136-1988  Serial  Recorded  Magnetic  Tape  Cartridge  for 

Information  Interchange,  Four  and  Nine  Track 

X3. 137-1988  Unformatted  Flexible  Disk  Cartridge, 90  mm  (3.5  Inch) 
5.3  tpmm  (135  tpi)  for  7958  bpr  Use 

X3. 139-1987  Fiber  Distributed  Data  Interface  (FDDI)  Token  Ring 
Media  Access  Control  (MAC) 

X3. 140-1986  Open  Systems  Interconnection  —  Connection 
Oriented  Transport  Layer  Protocol  Specification 
X3. 141-1987  Data  Communication  Systems  and  Services  —  Mea¬ 
surement  Methods  for  User-Oriented  Performance  Evaluation 
X3. 146-1987  Device  Level  Interface  for  Streaming  Cartridge 
and  Cassette  Tape  Drives 

X3. 147— 1988  Intelligent  Peripheral  Interface  —  Device  Generic 
Command  Set  for  Magnetic  Tape  Drives 

X3. 153-1987  Open  Systems  Interconnection  —  Basic  Connection 
Oriented  Session  Protocol  Specification 

X3. 156-1987  Nominal  8-Inch  Rigid  Disk  Removable  Cartridge 
X3. 157-1987  Recorded  Magnetic  Tape  for  Information  Interchange, 
3200  CPI 

X3. 158-1987  Serial  Recorded  Magnetic  Tape  Cassette  for  Informa¬ 
tion  Interchange,  0.150  Inch  (3.81  mm),  8000  bpi  (315  bpmm). 
Group  Code  Recording 

X3. 162-1988  Two-Sided,  High-Density,  Unformatted,  5.25-Inch 
(130-mm),  96  tpi,  Flexible  Disk  Cartridge  for  13  262  ftpr  Use 
XII. 1-1977  Programming  Language  MUMPS 
IEEE  416-1978  Abbreviated  Test  Language  for  All  Systems 
(ATLAS) 

IEEE  716-1982  Standard  C/ATLAS  Language 

IEEE  717-1982  Standard  C/ATLAS  Syntax 

IEEE  770X3.97-1983  Programming  Language  PASCAL 

IEEE  771-1980  Guide  to  the  Use  of  ATLAS 

ISO  821 1-1986  Specifications  for  a  Data  Descriptive  File  for 

Information  Interchange 

MIL-STD-1815A-1983  Reference  Manual  for  the  Ada  Programming 
Language 

NBS-ICST  1-1986  Fingerprint  Identification  —  Data  Format  for 
Information  Interchange 


X3/TRI-82  Dictionary  for  Information  Processing  Systems 
(Technical  Report) 


American  National  Standards  for  Information  Processing 


X3. 1-1987  Synchronous  Signaling  Rates  for  Data  Transmission 
X3. 2-1970  Print  Specifications  for  Magnetic  Ink  Character 
Recognition 

X3.4-1986  Coded  Character  Sets  —  7-Bit  ASCII 

X3.5-1970  Flowchart  Symbols  and  Their  Usage 

X3.6-1965  Perforated  Tape  Code 

X3.9-1978  Programming  Language  FORTRAN 

X3.1 1-1969  General  Purpose  Paper  Cards 

X3. 14-1983  Recorded  Magnetic  Tape  (200  CPI,  NRZI) 

X3. 15-1976  Bit  Sequencing  of  the  American  National  Standard 
Code  for  Information  Interchange  in  Serial-by-Bit  Data  Transmission 
X3. 16-1976  Character  Structure  and  Character  Parity  Sense  for 
Serial-by-Bit  Data  Communication  in  the  American  National  Stan¬ 
dard  Code  for  Information  Interchange 
X3. 17-1981  Character  Set  for  Optical  Character  Recognition 
(OCR-A) 

X3. 18-1974  One-Inch  Perforated  Paper  Tape 
X3. 19-1974  Eleven-Sixteenths-Inch  Perforated  Paper  Tape 
X3.20-1967  Take-Up  Reels  for  One-Inch  Perforated  Tape 
X3.21-1967  Rectangular  Holes  in  Twelve-Row  Punched  Cards 
X3.22-1983  Recorded  Magnetic  Tape  (800  CPI,  NRZI) 

X3.23-1985  Programming  Language  COBOL 

X3.25-1976  Character  Structure  and  Character  Parity  Sense  for 

Parallel-by-Bit  Data  Communication  in  the  American  National 

Standard  Code  for  Information  Interchange 

X3. 26-1980  Hollerith  Punched  Card  Code 

X3. 27-1987  Magnetic  Tape  Labels  and  File  Structure 

X3.28-1976  Procedures  for  the  Use  of  the  Communication  Control 

Characters  of  American  National  Standard  Code  for  Information 

Interchange  in  Specified  Data  Communication  Links 

X3. 29-1971  Specifications  for  Properties  of  Unpunched  Oiled 

Paper  Perforator  Tape 

X3.30-1986  Representation  for  Calendar  Date  and  Ordinal  Date 
X3.31-1988  Identification  of  the  Counties  of  the  United  States 
X3.32-1973  Graphic  Representation  of  the  Control  Characters  of 
American  National  Standard  Code  for  Information  Interchange 
X3. 34-1972  Interchange  Rolls  of  Perforated  Tape 
X3.37-1987  Programming  Language  APT 
X3.38-1988  Identification  of  States  of  the  United  States 
(Including  the  District  of  Columbia) 

X3. 39-1986  Recorded  Magnetic  Tape  (1600  CPI,  PE) 

X3.40-1983  Unrecorded  Magnetic  Tape  (9-Track  800  CPI,  NRZI; 
1600  CPI.  PE;  and  6250  CPI,  GCR) 

X3.41-1974  Code  Extension  Techniques  for  Use  with  the  7-Bit 
Coded  Character  Set  of  American  National  Standard  Code  for  Infor¬ 
mation  Interchange 

X3.42-1975  Representation  of  Numeric  Values  in  Character  Strings 
X3.43-1986  Representations  of  Local  Time  of  Day 
X3.44-1974  Determination  of  the  Performance  of  Data  Communi¬ 
cation  Systems 

X3.45-1982  Character  Set  for  Handprinting 

X3.46-1974  Unrecorded  Magnetic  Six-Disk  Pack  (General,  Physical, 
and  Magnetic  Characteristics) 

X3.47-1988  Identification  of  Named  Populated  Places,  Primary 
County  Divisions, and  Other  Locational  Entities  of  the  United  States 
X3.48-1986  Magnetic  Tape  Cassettes  (3.81 -mm  [0.150-Inch] 

Tape  at  32  bpmm  [800  bpi ]  ,  PE) 

X3.49-1975  Character  Set  for  Optical  Character  Recognition  (OCR-B) 
X3. 50-1986  Representations  for  U.S.  Customary,  SI,  and  Other 
Units  to  Be  Used  in  Systems  with  Limited  Character  Sets 
X3. 51-1986  Representations  of  Universal  Time,  Local  Time  Differ¬ 
entials,  and  United  States  Time  Zone  References 
X3. 52-1976  Unrecorded  Single-Disk  Cartridge  (Front  Loading, 

2200  BPI)  (General,  Physical,  and  Magnetic  Requirements) 

X3.53-1976  Programming  Language  PL/I 

X3. 54-1986  Recorded  Magnetic  Tape  (6250  CPI,  Group  Coded 

Recording) 

X3. 55-1982  Unrecorded  Magnetic  Tape  Cartridge,  0.250  Inch 
(6.30  mm),  1  600  bpi  (63  bpmm),  Phase  encoded 
X3. 56-1986  Recorded  Magnetic  Tape  Cartridge,  4  Track,  0.250 
Inch  (6.30  mm),  1600  bpi  (63  bpmm),  Phase  Encoded 
X3.57-1977  Structure  for  Formatting  Message  Headings  Using  the 
American  National  Standard  Code  for  Information  Interchange  for 
Data  Communication  Systems  Control 


X3. 58-1977  Unrecorded  Eleven-Disk  Pack  (General,  Physical,  and 
Magnetic  Requirements) 

X3.60-1978  Programming  Language  Minimal  BASIC 
X3.61-1986  Representation  of  Geographic  Point  Locations 
X3.62-1987  Paper  Used  in  Optical  Character  Recognition  (OCR) 
Systems 

X3.63-1981  Unrecorded  Twelve-Disk  Pack  (100  Megabytes)  (Gen¬ 
eral,  Physical,  and  Magnetic  Requirements) 

X3.64-1979  Additional  Controls  for  Use  with  American  National 
Standard  Code  for  Information  Interchange 
X3.66-1979  Advanced  Data  Communication  Control  Procedures 
(ADCCP) 

X3. 72-1981  Parallel  Recorded  Magnetic  Tape  Cartridge,  4  Track, 
0.250  Inch  (6.30  mm),  1600  bpi  (63  bpmm).  Phase  Encoded 
X3. 73-1980  Single-Sided  Unformatted  Flexible  Disk  Cartridge 
(for  6631 -BPR  Use) 

X3. 74-1981  Programming  Language  PL/I,  General-Purpose  Subset 
X3. 76-1981  Unformatted  Single-Disk  Cartridge  (Top  Loading, 

200  tpi  4400  bpi)  (General,  Physical,  and  Magnetic  Requirements) 
X3. 77-1980  Representation  of  Pocket  Select  Characters 
X3. 78-1981  Representation  of  Vertical  Carriage  Positioning  Char¬ 
acters  in  Information  Interchange 

X3. 79-1981  Determination  of  Performance  of  Data  Communica¬ 
tions  Systems  That  Use  Bit-Oriented  Communication  Procedures 
X3. 80-1981  Interfaces  between  Flexible  Disk  Cartridge  Drives 
and  Their  Host  Controllers 

X3. 82-1980  One-Sided  Single-Density  Unformatted  5.25-Inch 
Flexible  Disk  Cartridge  (for  3979-BPR  Use) 

X3. 83-1980  ANSI  Sponsorship  Procedures  for  ISO  Registration 
According  to  ISO  2375 

X3. 84-1981  Unformatted  Twelve-Disk  Pack  (200  MegabytesMGen- 
eral,  Physical,  and  Magnetic  Requirements 
X3.85-1981  1/2-Inch  Magnetic  Tape  Interchange  Using  a  Self 
Loading  Cartridge 

X3. 86-1980  Optical  Character  Recognition  (OCR)  Inks 
X3.88-1981  Computer  Program  Abstracts 
X3.89-1981  Unrecorded  Single-Disk,  Double-Density  Cartridge 
(Front  Loading,  2200  bpi,  200  tpi)  (General,  Physical,  and  Mag¬ 
netic  Requirements) 

X3.91M-1987  Storage  Module  Interfaces 

X3.92-1981  Data  Encryption  Algorithm 

X3.93M-1981  OCR  Character  Positioning 

X3. 94-1985  Programming  Language  PANCM 

X3.95-1982  Microprocessors  —  Hexadecimal  Input/Output,  Using 

5-Bit  and  7-Bit  Teleprinters 

X3.96-1983  Continuous  Business  Forms  (Single-Part) 

X3.98-1983  Text  Information  Interchange  in  Page  Image  Format 
(PIF) 

X3.99-1983  Print  Quality  Guideline  for  Optical  Character  Recogni¬ 
tion  (OCR) 

X3. 100-1983  Interface  Between  Data  Terminal  Equipment  and 
Data  Circuit-Terminating  Equipment  for  Packet  Mode  Operation 
with  Packet  Switched  Data  Communications  Network 
X3. 101-1984  Interfaces  Between  Rigid  Disk  Drivels)  and  Host(s) 

X3. 102-1983  Data  Communication  Systems  and  Services  —  User- 
Oriented  Performance  Parameters 

X3. 103-1983  Unrecorded  Magnetic  Tape  Minicassette  for  Informa¬ 
tion  Interchange,  Coplanar  3.81  mm  (0.150  Inch) 

X3. 104-1983  Recorded  Magnetic  Tape  Minicassette  for  Informa¬ 
tion  Interchange,  Coplanar  3.81  mm  (0.150  in).  Phase  Encoded 
X3. 105-1983  Data  Link  Encryption 

X3. 106-1983  Modes  of  Operation  for  the  Data  Encryption  Algorithm 
X3. 108-1988  Physical  Layer  Interface  for  Local  Distributed  Data 
Interfaces  to  a  Nonbranching  Coaxial  Cable  Bus 
X3. 110-1983  Videotex/Teletext  Presentation  Level  Protocol  Syntax 
X3.1 11-1986  Optical  Character  Recognition  (OCR)  Matrix  Charac¬ 
ter  Sets  for  OCR-M 

X3. 112-1984  14-in  (356-mm)  Diameter  Low-Surface-Friction 
Magnetic  Storage  Disk 

( Continued  on  reverse ) 
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